Select Code to Download

use strict;
use Data::Dumper;
...
   print "key('32000011') is = $STUDQT{'32000011'}[1] <br>\n";
   print "key{'32000012'} is = $STUDQT{'32000012'}[1] <br>\n";
}