use Data::Dump::Streamer;
$FOO::ONE = 1;
*BAR:: = *FOO::;
$BAR::ONE = 2;
Dump \%BAR::, \%FOO::;
Dump \*BAR::;
__END__
$HASH1 = { ONE => *FOO::ONE };
*FOO::ONE = \do { my $v = 1 };
$HASH2 = $HASH1;
$GLOB1 = \*{'::FOO::'};
*{'::FOO::'} = { ONE => *FOO::ONE };
*FOO::ONE = \do { my $v = 1 };