karls-mac-mini:monks karl$ perl -v

This is perl 5, version 16, subversion 3 (v5.16.3) built for darwin-2level

karls-mac-mini:monks karl$ ./testomato.pl 

{
  'foo'  => 'bar',
  'nose' => 'cuke',
};
{ foo => "bar", nose => "cuke" }


karls-mac-mini:monks karl$ perlbrew use perl-5.17.7
karls-mac-mini:monks karl$ ./testomato.pl 

{
  'foo'  => 'bar',
  'nose' => 'cuke',
};
{ foo => "bar", nose => "cuke" }


karls-mac-mini:monks karl$ perlbrew use perl-5.18.0
karls-mac-mini:monks karl$ ./testomato.pl 

{
  'foo'  => 'bar',
  'nose' => 'cuke',
};
'ref-to-glob cast' trapped by operation mask at (eval 5) line 1, <DATA> chunk 1.
undef

karls-mac-mini:monks karl$ perlbrew use perl-5.18.1
karls-mac-mini:monks karl$ ./testomato.pl 

{
  'foo'  => 'bar',
  'nose' => 'cuke',
};
'ref-to-glob cast' trapped by operation mask at (eval 5) line 1, <DATA> chunk 1.
undef