perl -we 'warn ${[{"a",1},"foo"]}{"a"}'