- or download this
# this...
my $self = {} ;
# ... is the same of:
my %foo ;
my $self = \%foo ;
- or download this
my @hold_ref ;
for(1..3) {
...
push(@hold_ref , $hash_ref) ;
print "$hash_ref\n" ;
}
- or download this
HASH(0x1a7f10c)
HASH(0x1a7f130)
HASH(0x1a75468)