Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    
    print find_2;
    print find_2;
    
  2. or download this
    The key for 2 is 1
    could not find 2 at each.pl line 11.
    
  3. or download this
    if ($val == 2){;
      #rewind each
      my $a = scalar keys %hash;
      return "The key for 2 is $key\n"  
    }