cf. 評価戦略 - Wikipediaサブルーチンの引数として渡す式がハッシュの要素の場合、その評価は正格ではなく、要素の取得は必要になるまで行われません #!perl use 5.14.0; use warnings; use strict; package MyTieHash { use Carp qw(longmess); use Tie::H…