$_->() for map @$_, values %HoL; #### $_->() for map @$_, @HoL{qw/ one two /}; #### @ret = map $_->(), map @$_, @HoL{qw/ one two /}; #### (\&hello, \&goodbye,) #### \(&hello, &goodbye,)
## $_->() for map @$_, @HoL{qw/ one two /}; ##
## @ret = map $_->(), map @$_, @HoL{qw/ one two /}; ##
## (\&hello, \&goodbye,) ##
## \(&hello, &goodbye,)