#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my %hash = (
    'name' => 'zdd',
    'id'   => 1234,
);
print Dumper(/%hash); # use reference here to get a better output.