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