} elsif (ref($aref) eq “HASH”){
            print "Entering the hashref branch: \n"; 
            foreach $key ( keys %{$aref} ){
                 # ...
      } else {
            print "Not entering the hashref branch: ", ref($aref), "\n";