*perl* 배열에 관한 질문좀 드릴게요.

#!/usr/bin/env perl
 
$READ_LINE_BUFFER = 10_0000;
 
open $handle, '<', $filename or die;
 
while ($line = <$handle>) {
    chomp $line;
 
    $file_count++;
    $line_count++;
 
    @spl = split m{ }, $line;
    push @{$invt[$line_count]}, $spl[$line_count];
 
    next unless $line_count == $READ_LINE_BUFFER;
    $line_count = 0;
 
    open $save, '>', "${filename}__${$file_count}" or die;
    for $l (@invt) {
        print "@$l", "\n";
    }
    close $save;
}