in reply to How a for() assignment works

This could be done thus: 
for my $var (map {lc} @vars) {
    print "Value: " . $hash_ref->{$var} . "\n" if exists $hash_ref->{$
+var};
}

[download]

Update: Looks like jwkrahn beat me to it...

     "As you get older three things happen. The first is your memory goes, and I can't remember the other two... " - Sir Norman Wisdom

In Section Seekers of Perl Wisdom