while ( <INFILE> ) {
    next if /^>/;
    push @dat, split;
}