#!perl -w
use strict;
use Data::Dumper;

my %addrRow = (
  'name'    => 'Billy',
  'email'   => 'billy@email.com',
  'city'    => 'NY',
  'country' => 'USA'
);

$Data::Dumper::Indent = 0;
$Data::Dumper::Purity = 1;
my $scalar = Data::Dumper->Dump(
  [\%addrRow], ['*addrRow']
);