Select Code to Download

  # this...
  my $self = {} ;
  # ... is the same of:
  my %foo ;
  my $self = \%foo ;

  my @hold_ref ;
  for(1..3) {
...
    push(@hold_ref , $hash_ref) ;
    print "$hash_ref\n" ;
  }

HASH(0x1a7f10c)
HASH(0x1a7f130)
HASH(0x1a75468)