Select Code to Download

my %INPUT = (
    quizes      => 2,
...
    RI232000012 => 22,
    AS232000012 => 22,
);

foreach (32000011..32000012) {
    push @{$STUDQT{$_}},  qw(fname mname lname Sex);
}

use Data::Dumper;
print Dumper \%STUDQT;
...
                          'Sex'
                        ]
        };