foreach my $key (sort keys%sequences)

##</code><code>##

my $str = "abcde";
print substr( $str, 0, 3 );