Select Code to Download

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

$a1 = {
   'p' => 1,
...
   'p' => 1,
   'q' => 2,
};