use Symbol qw/ qualify_to_ref /; *{ qualify_to_ref($name) } = sub { ... };