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