jars@jars-desktop:~$ perl -MData::Dumper -e 'my %var = (1,2); my $d = Data::Dumper->new( [\%var],['test'] ); print $d->Dump'
$test = {
          '1' => 2
        };