Select Code to Download

use strict;
...
  chomp;
  my @ele = split /\s/,$_;

use strict;
use warnings;
...
3 dog cat hammer nail
4 monkey cow hammer nail

foreach my $key (keys %res){

  if ($key =~ /monkey/) {

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