#!/usr/bin/perl -w
# Make an array of hashes.
# This part works.

use strict; # <- Note the use strict

my @months = ();
my %m = ();

push @months, {
    full   => "january",
    abbrev => "jan",
    number => 1,
};
push @months, {
    full   => "february",
    abbrev => "feb",
    number => 2,
};
push @months, {
    full   => "march",
    abbrev => "mar",
    number => 3,
};

# etc
# Now try to print it out.

foreach my $month (@months) {
    print "$month->{full}\n";
    print "$month->{abbrev}\n";
    print "$month->{number}\n\n";
}