Select Code to Download

if (defined(my $foo = exists $lookup{$bar})) {
    ....
}

if (exists $lookup{$bar}) {
    my $foo = $lookup{$bar};
    ...
}

for my $foo (sort keys %some_hash) {
    my $by_foo = $some_hash{$foo};
...
        }
    }
}