#!/usr/bin/perl -w
$a=10;
$b{\$a}= $a;
($key,$value)=each %b;
print "$$key\n";