Select Code to Download

use strict;
use Data::Dumper;
...
);

print Dumper \%hash;

for (keys %bad_hash) {
    if ($bad_hash{$_} =~ /orl/) { # because we're looking for "hello"
...
}

print Dumper \%bad_hash;