#!/usr/bin/perl
use strict;
use Data::Dumper;
my ($hash_ref, $var1);

print "This is my test of Data Dummper\n";

## Setup Data
$var1->{temp} = "123";

push (@{$hash_ref->{test1}}, $var1);

push (@{$hash_ref->{test2}}, $var1);

print Dumper($hash_ref);


## print new data
my $VAR1;
eval Dumper($hash_ref);

print Dumper($VAR1);

exit;