>>433
ありがとうございます。

kakou($dat, $in);
sub kakou {
 　my $in = $_[1];
　return unless $in;
　# $_[0] に直接ほげほげするか、my $dat_ref = \$_[0];するか
}

この方法でもコピーを避けれるかと思うのですが、
呼び出し側で\付けてリファレンスを渡してやる方が一般的なんでしょうか？