liord@analog4 268 > perl -e 'sub a { %a = ( 1 , "ho" ); return %a} %t= a() ; print keys %t , "\n"; '
1