Help for this page
>id1|various annotation1 sequence of characters1 ... ... >idN|various annotationN sequence of charactersN
>id1-id15-id22|various annotation1 sequence of characters1 ...
use strict; use warnings; ... print "$_:", join( ",", @{ $res{$_} } ); print "\n"; }