my @lines;

@ARGV = $file;
while (<>) {
    my @fields = ...;
    push @lines, \@fields;
}
[download]

@{$lines[0]} is the array for the first line.
@{$lines[1]} is the array for the second line.
etc