Help for this page

Select Code to Download


  1. or download this
    for my $var (@vars) {
        print "Value: " . $hash_ref->{lc $var} . "\n" if exists $hash_ref-
    +>{lc $var};
    }
    
  2. or download this
    for my $var (@vars) {
        my $new_var = lc $var;
        print "Value: " . $hash_ref->{$new_var} . "\n" if exists $hash_ref
    +->{$new_var};
    }
    
  3. or download this
    for my $var = lc $_ (@vars) {
        print "Value: " . $hash_ref->{$var} . "\n" if exists $hash_ref->{$
    +var};
    }