my @array; my $n = 0;
$array[ $n++ ] = $_ while <$fh>;