Select Code to Download

use Data::Dumper;

...
x($a,[5,3,4,5,6]); 

print Dumper \$a;

$VAR1 = \{
            '5' => {
...
                            }
                   }
          };