my $coderef = \&{ 'subroutine_name' }; 
#undef $$coderef; # typo ?
undef &{ $coderef };