#!/usr/bin/perl 
use strict;
use warnings;

my $a=10;
my %b; 

$b{\$a}= $a; 
while ( my ($key, $value) = each %b) { print "$key => $b{$key}\n"; }