*main:: = *my_temp_convert::;

##</code><code>##

package foo;
sub foo {print "bar"};
package main;
%main:: = %foo::;
print "$_ => $main::{$_}" for keys %main::;
foo();
__END__
foo => *foo::foo
Undefined subroutine &main::foo called at -e line 1.

##</code><code>##

@main::{ keys %foo:: } = values %foo::;