my %x;
my $u = undef;
my $s = "";

$x{$u} = 1;
$x{$s} = 2;

print "$x{$u}\n";