>perl -wMstrict -le
"use Data::Dumper;
 my %hash = (
   ' k 1 ' => ' v 1 ',
   ' k 2 ' => ' v 2 ',
   );
 print Dumper \%hash;
 %hash = map { s{\s+}{}xmsg;  $_ } %hash;
 print Dumper \%hash;
"
$VAR1 = {
          ' k 2 ' => ' v 2 ',
          ' k 1 ' => ' v 1 '
        };

$VAR1 = {
          'k2' => 'v2',
          'k1' => 'v1'
        };