foreach my $key (sort keys%sequences)