Adding a Hash in an Array - perl

Question

I'm trying to create an array of hashes in perl and I'm having some trouble in printing it as the only thing that prints out is the last hash entered.
Is there something wrong in how I push the hashtables into the array? Also, how can I print the contents of the array (the hashtables) properly?
print "\n===========SUBJECTS===========\n";
my $exit = "n";
until ( $exit eq "y" ) { #loops until user enters 'y'
print "Course Number: ";
my $cNum = <STDIN>;
chomp($cNum);
print "Course Credit: ";
my $cCred = <STDIN>;
print "Grade: ";
my $cGrade = <STDIN>;
%subHash = (
"courseNumber" => $cNum,
"courseCredit" => $cCred,
"courseGrade" => $cGrade,
);
push #subList, \%subHash;
$subCount += 1;
print "\nFinished adding subjects?\n[y/n]\nCHOICE: "; #asks for subject input termination
$exit = <STDIN>;
chomp($exit);
print "\n==============================\n";
}

Answer 1

You'll need to loop through the array of hash refs, dereferencing each one appropriately.
for my $hash_ref (#AoH)
{
for my $key (keys %{$hash_ref})
{
print "$key => $hash_ref->{$key}\n"
}
}
or
for my $hash_ref (#AoH)
{
while (my ($key, $val) = each %{$hash_ref})
{
print "$key => $val\n";
}
}
See perldoc perldsc for more about nested data structures, including printing them out.

Answer 2

The answer has already been given to you. Are you having trouble copy and pasting it into your homework?
use strict;
use warnings;
my #subList;
print "\n===========SUBJECTS===========\n";
my $exit = "n";
until ( $exit eq "y" ) { #loops until user enters 'y'
print "Course Number: ";
my $cNum = <STDIN>;
chomp($cNum);
print "Course Credit: ";
my $cCred = <STDIN>;
chomp($cCred);
print "Grade: ";
my $cGrade = <STDIN>;
chomp($cGrade);
push #subList, {
"courseNumber" => $cNum,
"courseCredit" => $cCred,
"courseGrade" => $cGrade,
};
print "\nFinished adding subjects?\n[y/n]\nCHOICE: "; #asks for subject input termination
$exit = <STDIN>;
chomp($exit);
print "\n==============================\n";
}
foreach my $hashref ( #subList ) {
while ( my ($key, $val) = each %{$hashref} ) {
print "$key => $val\n";
}
print "-----\n";
}