#!/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};


##</code><code>##

use strict;
$\="\n";
my %f = 1..4;
print \%f;
my %b = %f;
print \%b;
print they => are => not => equal => chr(33) if \%b ne \%f ;