Help for this page
%{ { testa() } }
while( my( $key, $val ) = each( %{ { testa() } } ) { print "Key: $key\tValue: $val\n"; }
while( my( $key, $val ) = each( %{ testa() } ) { print "Key: $key\tValue: $val\n"; ... ); return \%s; }