Select Code to Download

#!/usr/bin/perl
use strict;
...
my @output = grep $hash, 'value2';

print "@output\n";

rasto@sauron:~$ ./test.pl 
$VAR1 = {
...
                    }
        };
value2