do { no strict "refs"; $subname->( 4 ) }

##</code><code>##

( \&$subname )->( 4 )