print [("foo","bar")]->[1] returns bar, as I'd expect.

##</code><code>##

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