perl -MData::Dumper -le 
'$foo = "blah"; %a = ( $foo => 42 ); print Dumper \%a'
$VAR1 = {
          'blah' => 42
        };