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