perl: кочки и ухабы

# perl -le 'sub a () { my $ret = "scalar A"; $ret->{'a'} = "hash A"; return $ret };
   print a (); print a ()->{'a'};'
scalar A
hash A

удобное, но относительно опасное средство для возвращения параметров.

( более интересно (для программистов) )