#!/usr/bin/perl -w
# Make an array of hashes very explicitly.
# This part works.
@months = ();
%m = (
    full   => "january",
    abbrev => "jan",
    number => 1,
);
push @months, \%m;
%m = (
    full   => "february",
    abbrev => "feb",
    number => 2,
);
push @months, \%m;
%m = (
    full   => "march",
    abbrev => "mar",
    number => 3,
);
push @months, \%m;
# etc
# Now try to print it back out again.
# This part doesn't work.
while (<@months>) {
    print "$_->{full}\n";
    print "$_->{abbrev}\n";
    print "$_->{number}\n\n";
}