Select Code to Download

e.g.

my @numbers = ('1', '2', '2', '3', '3');
my @strings = ('hello', 'green', 'grass', 'rainbow', 'pretty');
my @new_strings;

hello
greengrass
rainbowpretty

for ( 0 .. $#numbers ) {
  push @{$h{$numbers[$_]}}, $strings[$_];
...
                       push @final_strings, "$new_strings[$k]";
              }
}

@check = ('1','2','3','4');

...
rainbowpretty
xxxxxxxx       # THE 4TH ELEMENT NOW CONTAINS 'xxxxxxxx' as there isn'
+t a '4' in @numbers