use Data::Dumper;
my %s=('key',1);
my $s=\$s{'key'};
print Dumper([\%s, $s])

##</code><code>##

$VAR1 = [
          {
            'key' => 1
          },
          \$VAR1->[0]{'key'}
        ];