perl ハッシュのリファレンス

#ハッシュのリファレンスを受け取り、キーと値を逆にして返すサブルーチン

#サブルーチン実行前
%hash = (
    "太郎"=>"tarou",
    "花子"=>"hanako",
    "次郎"=>"jirou",
);
print "実行前：\n";
print "$key => $value\n" while(($key, $value) = each(%hash));

#サブルーチン実行
&sub_hush(\%hash);

#サブルーチン実行後
print "実行後：\n";
print "$key => $value\n"  while(($key, $value) = each(%hash));

#サブルーチン
sub sub_hush{
    my($reference_hush) = @_;
    
    %$reference_hush = reverse(%$reference_hush);        
    

}

#実行結果
# 実行前：
# 太郎 => tarou
# 次郎 => jirou
# 花子 => hanako
# 実行後：
# tarou => 太郎
# hanako => 花子
# jirou => 次郎