>perl -wMstrict -le
"my $key = \"that's it!\";
 my $value = \"foo\";
 my %something;
 $something{$key} = $value;
 print $something{$key};
 use Data::Dumper;
 print Dumper \%something;
"
foo
$VAR1 = {
          'that\'s it!' => 'foo'
        };