#!/usr/bin/perl
use strict;

$Hubba::abba = "zappa\n";

%Bubba:: = %Hubba::;

# compile time deferred
eval 'print $Bubba::abba';

##</code><code>##

#!/usr/bin/perl
use strict;

$Hubba::abba = "zappa\n";

# copying via hash slice doesn't create new hash
@Bubba::{keys %Hubba::} = @Hubba::{keys %Hubba::};
# or: @Bubba::{keys %Hubba::} = values %Hubba::;

print $Bubba::abba;