perl -e '%a=(x=>"y");print "$a{x}\n";%a=();print "$a{x}\n"'