in reply to Avoiding user-input in sub calls.

perl -wle'%subs = ("a"=>sub{"A"}, "b"=>sub{"B"}, "c"=>sub{"C"}); print
+ &{$subs{((keys %subs)[rand keys %subs])}} for 1..10'

[download]

<code> map print(chr(hex((q{6f634070617a6d692e7273650a}=~/../g)hex))),(q{375542349abb99098106c}=~/./g)<code>

In Section Seekers of Perl Wisdom