c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(dd);
 ;;
 my %white;
 ;;
 my @bar = qw(bozzle);
 ;;
 $white{ foo => $bar[0] } = 'wibble';
 dd \%white;
"
{ "foo\34bozzle" => "wibble" }