perl -E '$h={a=>1,b=>2}; say ${$h}{a}'