Re^2: Does Perl do constant anonymous hash creation optimisation?

Apologies! I had just grabed this data from some old stock names...

Uh oh - now someone is going to tell me

  'AUST.' => 'OZ',
  'ENZED' => 'KIWI',
  'ET'    => 'CETERA'
[download]

Comment on Re^2: Does Perl do constant anonymous hash creation optimisation? Download Code