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