この間、こんなふうにてきとーなデータをTie::IxHashに詰めて返す関数を書いた。 sub numbers { my ($orig) = @_; tie(my %h, "Tie::IxHash", orig => $orig, square => $orig * $orig, cube => $orig * $orig * $orig ); return \%h; } このコード、変数%h…