perl -we "print +{(foo => 'bar')}->{foo}"
bar