>perl -wMstrict -le
"my %f_map = ( glue => \&foo, );
 ;;
 print $f_map{glue}->('hoo');
 ;;
 sub foo { return 'FOO' . $_[0]; }
"
FOOhoo