while ( <DATA> ) {
    my ($head, $seq ) = split;