#!/usr/bin/perl

use strict;
use Data::Dumper;

my $var1 = { temp => "123" };
my $hash_ref;
push @{$hash_ref->{test1}}, $var1;
push @{$hash_ref->{test2}}, $var1;

print Dumper($hash_ref);

my $dump = do {
    local $Data::Dumper::Purity = 1;
    Dumper($hash_ref);
};

my $VAR1;
eval "$dump; 1" or die $@;

print Dumper($VAR1);