Which is shown nicely by:

#!/usr/bin/perl

use Data::Dumper;

$hash{+undef} = "pleasure";
$hash{''} = "pain";

print Dumper(\%hash);
[download]

Outputs:

$VAR1 = {
          '' => 'pain',
        };
[download]

--
Steve Marvell