$ perl -e '$x=\&fff; sub fff{44};print $x->(2)'
44