Select Code to Download

#!/bin/perl
#
...
}

print Dumper \%HoH;

     foo =>
                p0 =>
...
                p2 =>
                        itema
                        itemb

$VAR1 = {
          'bar' => 'p2',
          'itemb' => undef
        };