use Data::Rmap; rmap { print "$_\n" } \%hash thomas samual ryan jessica