新しく宣言した変数のリファレンスを取得する方法

今まで変数のリファレンスを取得するためには，わざわざリファレンス変数に代入してから使っていた．

こうすれば変数宣言と同時にリファレンスを取得できるみたい．

\ my %hash;

確認プログラム

my $hoge_ref = \ my %hoge;
%hoge = (yamada => 1, tanaka => 2, sato => 3);

while ( my ($key, $val) = each %$hoge_ref ){
  print "$key:$val\n";
}
__End__
# 出力結果
yamada:1
sato:3
tanaka:2

リファレンス渡しの関数を呼び出すときに今までよりも一行少なくて済みそう．