$foo = 'bar';
$hash{$foo} = "Hello, World!\n";
print $hash{bar}; # prints Hello, World! and a linefeed

##</code><code>##

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$