Select Code to Download

use strict;
use warnings;
...
};

print "Dump of pdata = ", Dumper($pdata), "\n";

Dump of pdata = $VAR1 = {
          'blue' => {
...
                     'ghi'
                   ]
        };