my $full_name = $caller."::".$field; *{$fullname} = Sub::Name::subname $full_name => sub { ... }