foreach my $key (keys %res){

  if ($key =~ /monkey/) {

     print "monkey [occurence in $key] found in IDs:", (join ', ', @{$res{$key}}), "\n";