Help for this page

Select Code to Download


  1. or download this
          } elsif (ref($aref) eq “HASH”){
            
    #This foreach of the hash ref doesn't print anything!
            foreach $key ( keys %{$aref} ){
  2. or download this
          } elsif (ref($aref) eq “HASH”){
            print "Entering the hashref branch: \n"; 
...
                 # ...
      } else {
            print "Not entering the hashref branch: ", ref($aref), "\n
+";