while(<$fastd> ) { chomp; my @numbers = split; push @matrix, \@numbers; } [download]
In reply to Explaining small Code by madM