Help for this page
while(<$fh>){ my $id = ''; ... $id2seq{$id} .= $_; } }
#!/usr/bin/perl use strict; ... } close $fh;