$ perl  /d/perl/pm/iterate_hash_slice.pl
c -> 3
a -> 1
e -> 5