#!/usr/bin/perl -w
use strict;
$\="\n";
my %jar = qw( a b c d);
my @ppp = ( \%jar );

print a => $jar{a};
print a => $ppp[0]->{a};
print c => $jar{c};
print c => $ppp[0]->{c};

$jar{a}='gork';
$jar{c}='gork';
push @ppp, \%jar;

print a => $jar{a};
print a => $ppp[0]->{a};
print a => $ppp[1]->{a};
print c => $jar{c};
print c => $ppp[0]->{c};
print c => $ppp[1]->{c};

{
  my %jar = ( a => shark => c => shark => 1 => 2 );
  push @ppp, \%jar;
}

print a => $jar{a};
print a => $ppp[0]->{a};
print a => $ppp[1]->{a};
print a => $ppp[2]->{a};
print c => $jar{c};
print c => $ppp[0]->{c};
print c => $ppp[1]->{c};
print c => $ppp[2]->{c};