use strict;
use warnings;

my @quiz = (
    {ask => "Name the definitive rock band..",
     answer => "The Rolling Stones"
    },
    {ask => "What is their best song?",
     answer => "Moonlight Mile"
    },
    {ask => "What is their best album?",
     answer => "Sticky Fingers"
    }
    );
my @incorrect;

for my $question (@quiz) {
    print "$question->{ask}: ";

    my $guess = <STDIN>;

    chomp $guess;

    if (lc $guess eq lc $question->{answer}) {
        print "You Rock!\n";
    } else {
        print "You Suck!\n";  # if incorrect, reply and save answer to be calculated
        push @incorrect, [$question, $guess];
    }
}

my $grade = (@quiz - @incorrect) / @quiz * 100;

print "Grade: $grade\n";