use strict; use warnings; use Data::Dumper; my $pdata = { 'red' => [ 'abc', 'def', 'ghi' ], 'blue' => { '123' => '456', 'xxx' => 'yyy' }, }; print "Dump of pdata = ", Dumper($pdata), "\n";