Select Code to Download

if(exists($final->{$x[$i]})){
    print "second\n";
...
    print "first\n";
    $final->{$x[$i]} = ($final->{$x[$i]}, $f);    
    }

c:\@Work\Perl>perl -wMstrict -MData::Dumper -le
"my $final = { qw(a 1  b 2  c 3), d => [ 9, 8, 7 ] };
...
                   7
                 ]
        };