You don't need to recreate @arr for every line. This would be faster:

my @arr;
while ( <INFILE> ) {
    next if ($_ =~ /^(\>)/);
    push @arr, split(/ /, $_);
}
[download]