Select Code to Download

my $find = q{something};

...
    endif
  }
}

my $key = q{key};
my $find = q{something};
my @found = grep{$_ eq $find} @{$hash{$key}};
print qq{@found\n};