#!/usr/bin/perl
#####
#
# example of references and data structures
# and the use of Data::Dumper to store/refresh
#
######
use strict;
use warnings;
use Data::Dumper;

my $people = [            # reference to a list of people
	      {           # each person is a ref to a hash
	       name => 'Jim',
	       age  => 43,
	       kids => [     # kids is a ref to an array
			{    # each kid is a hash
			 name => 'Lynn',
			 age  => 18,
			},
			{
			 name => 'Ian',
			 age  => 13,
			 },
		       ],
	      },
	     ];

my $string = Dumper($people);
print $string;

my $VAR1 = '';
print "VAR1 is '$VAR1' \n";
print "evaluating string...\n";

eval $string;

print "VAR1 is '$VAR1' \n";
