配列やハッシュをサブルーチンで使う場合 キャストっぽいなぁ。 my @array1=('1','2'); my %hash2=('2'=>'1','1'=>'2'); &hoge(\@array1, \%hash2); exit 1; sub hoge { my @a1 = @{$_[0]}; my %h2 = %{$_[1]}; print $a1[0]."\n"; print $h2{'2'}."\n"; } …