while (<QSTNS>)    {
$_ =~ /^(Quiz)(\d)$/;
$max = $2;
}

##</code><code>##

while (<QSTNS>)    {
($max) =~ /Quiz(\d)/;
}

##</code><code>##

                $_ =~ /([^,]+),([^,]+),([^,]+),([^,]+)/;
                                push (@A,$1);
                                push (@B,$2);
                                push (@C,$3);
                                push (@D,$4);