Select Code to Download

use strict;
use warnings;
...
my (@surprise) = grep($var1, @arr1);

print Dumper( \@surprise );

use strict;
use warnings;
...
    print "match $var1\n"
        if exists $reference{$var1};
}