#!/usr/bin/perl

use Data::Dumper;

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

print Dumper(\%hash);

##</code><code>##

$VAR1 = {
          '' => 'pain',
        };