#!/usr/bin/perl
use warnings;
use strict;

use Data::Dumper;

my $struct = [{a => 12, b => 14}, {arr => [5, 6, 7]}];
$Data::Dumper::Sortkeys = 1;
my $dump = Dumper($struct);
print $dump;
my $copy = eval "my $dump";
print Dumper $copy;