■perl で参照渡しroutine(\%a);sub routine(%a) { my $a = @_; print %$a; print $a->{1}; }さらに，\%$a とかってやれば参照を参照渡し出来る．変数をコピーしないようにすると強烈に速くなる．