use PadWalker qw(peek_my);
do "xyz";  #this file has many hashrefs defined
foreach $item (keys %{peek_my(0)}) {
  print $item,"\n";
  print $item if (ref $item eq ref {});
}