And then there's also the one they call the "weeping programmer":

>perl -wMstrict -le
"use constant KEY => 'foobar';
 use Data::Dumper;
 print Dumper({ KEY ,,,,,, 'value' });
"
$VAR1 = {
          'foobar' => 'value'
        };
[download]