#!/usr/bin/perl
print "Content-type: text/html\n\n";
#Program
# Values From Web Page using Post to Simulate Values
$INPUT{'quizes'}=2;
$INPUT{'assign'}=2;
$INPUT{'recit'}=2;
$INPUT{'ndays'}=1;
$INPUT{'AT32000011'}=1;
$INPUT{'QZ132000011'}=1;
$INPUT{'RI132000011'}=1;
$INPUT{'AS132000011'}=1;
$INPUT{'QZ232000011'}=2;
$INPUT{'RI232000011'}=2;
$INPUT{'AS232000011'}=2;
$INPUT{'AT32000012'}=1;
$INPUT{'QZ132000012'}=12;
$INPUT{'RI132000012'}=12;
$INPUT{'AS132000012'}=12;
$INPUT{'QZ232000012'}=22;
$INPUT{'RI232000012'}=22;
$INPUT{'AS232000012'}=22;


#Values From File to Simulate with out the files
$STUDQT{'32000011'}[0] =  'fname';
$STUDQT{'32000011'}[1] =  'mname';
$STUDQT{'32000011'}[2] =  'lname';
$STUDQT{'32000011'}[3] =  'Sex';
$STUDQT{'32000011'}[1]['01'] =  '0';
$STUDQT{'32000011'}[1]['02'] =  '0';                                                                                                                                             ;
$STUDQT{'32000011'}[1]['03'] =  '0';
$STUDQT{'32000011'}[1]['04'] =  '0';

$STUDQT{'32000012'}[0] =  'fname';
$STUDQT{'32000012'}[1] =  'mname';
$STUDQT{'32000012'}[2] =  'lname';
$STUDQT{'32000012'}[3] =  'Sex';
$STUDQT{'32000012'}[1]['01'] =  '0';
$STUDQT{'32000012'}[1]['02'] =  '0';                                                                                                                                             ;
$STUDQT{'32000012'}[1]['03'] =  '0';
$STUDQT{'32000012'}[1]['04'] =  '0';
#--------------------------------------------

@sorted = sort { "$STUDQT{$a}[3] $STUDQT{$a}[2] $STUDQT{$a}[0]" cmp "$STUDQT{$b}[3] $STUDQT{$b}[2] $STUDQT{$b}[0]" } keys %STUDQT;
#-----------------------------------Get The Inputs From User

foreach $l (@sorted) {
#----------------------------------------------------------------------------------------
        $STUD_1 = "";
        $STUD_1 = "$STUDQT{$l}[1]['02']";

        for ($i = 1; $i < $INPUT{'assign'}+1; $i+=1) {
                if ($INPUT{"AS$i$l"}) {
                $STUD_1 =  "$STUD_1$INPUT{\"AS$i$l\"}";
                if (($INPUT{'assign'}) != $i) { $STUD_1 .= "~";}
                }
        }
        $STUDQT{"$l"}[1]['02'] = "$STUD_1"."^"; #Problem
        print "Values for fist key in an associative array with key('32000011')is = $STUDQT{'32000011'}[1]['02'] <br>\n";
        print "Problem is a Value has also some how been assigned to the next key in an associative array<br>\n";
        print "Values for next array with key{'32000012'} is = $STUDQT{'32000012'}[1]['02'] <br>\n";
        print "--------------------------------<br><br>\n\n";
}