my $subname = "packagename::some_sub";
no strict 'refs';

# note that we use a typeglob here
*$subname = sub {
  print "Hello from subroutine $subname";
};

packagename::some_sub();