my $test = $main::{subname} // 'undef';
say "subname: $test";

my $name = "subname";
my $subref = \&{$name};

$test = $main::{subname} // 'undef';
say "subname: $test";
__END__
subname: undef
subname: *main::subname