perl -le '%x=(y=>"a"); $a="Z";print ${$x{y}}'