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