Select Code to Download

for my $var (map lc, grep exists $hash_ref->{lc $_}, @vars) {
    print "Value: " . $hash_ref->{$var} . "\n" ;
}

for my $var (map $hash_ref->{lc $_}, grep exists $hash_ref->{lc $_}, @
+vars) {
    print "Value: " . $var . "\n" ;
}

print "Value: " . $_ . "\n"
    for
        map $hash_ref->{lc $_},
            grep exists $hash_ref->{lc $_},
                @vars;

print "Value: " . $hash_ref->{$_} . "\n"
    for
        grep exists $hash_ref->{$_},
            map lc,
                @vars;