解决方法
Data::Dumper是你的朋友。
use Data::Dumper;
my %hash = ('abc' => 123,'def' => [4,5,6]);
print Dumper(\%hash);
将输出
$VAR1 = {
'def' => [
4,6
],'abc' => 123
};