ハッシュの中にリファレンスも含んでる時ってどうやって安全にメソッドに渡すの？
&routin({%hash});
こうすると%hash自体は安全に見えるけど、もしもこの中身が
my %hash = (a=>1 , b=>[qw/1 2 3 4 5 6/] , c=>\("あいうえお"));

こんなのだったらbとcは渡された先でいじられた時にメイン側の$hash{b}にも
影響出るよね。