foreach  $value (sort {$SeqSet{$a} cmp $SeqSet{$b}}
           keys %SeqSet)
{
     print  "$value $SeqSet{$value}\n";
}