Select Code to Download

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

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