(my $key, my $value) = each %sequences