use strict;
use warnings;
my $hashref = { "key" => "value" };
my %foo;
local *foo = $hashref;
printf("keys=%d\n", scalar(keys(%foo)));
# prints: keys=0