Select Code to Download

my $credit = [
    {
        (map {$_ => 1.0} qw(g6 g7 g8 g9)),
...
                            k0 k1 k2 k3 k4 k5)),
    },
];

if (exists $credit->[$qnum]{$answer})
{
    print "Q $qnum: ", $credit->[$qnum]{$answer}, " points\n";
...
{
    print "wrong\n";
}