$ perl -le 'print +{("foo","bar")}->{foo}'
bar