my $foo;
my %hash;
$hash{'$foo'}=\$foo;
sub1 (\%hash);