Select Code to Download

for my $key (keys %left) {
    if ( exists $right{$key} ) {
...
        print "$key | $result\n";
    }
}