Hello stu96art,

I just want to mention that an initialisation like this:

$flag_assignments{$key}{'starrez'}      = $info[ 0];
$flag_assignments{$key}{'abbreviation'} = $info[ 1];
$flag_assignments{$key}{'greek'}        = $info[ 2];
$flag_assignments{$key}{'Fall'}         = $info[ 3];
$flag_assignments{$key}{'Spring'}       = $info[ 4];
$flag_assignments{$key}{'Summer'}       = $info[ 5];
$flag_assignments{$key}{'RA-Fall'}      = $info[ 6];
$flag_assignments{$key}{'RA-Spring'}    = $info[ 7];
$flag_assignments{$key}{'RA-Summer'}    = $info[ 8];
$flag_assignments{$key}{'NR-Fall'}      = $info[ 9];
$flag_assignments{$key}{'NR-Spring'}    = $info[10];
[download]

can be written more succinctly using slices:

my @keys = qw(starrez abbreviation greek Fall Spring Summer RA-Fall RA
+-Spring RA-Summer NR-Fall NR-Spring);
my %flag_assignments;
@{ $flag_assignments{$key} }{ @keys } = @info[0 .. 10];
[download]

(But flexvault’s suggestions for input validation are the better way to go.)

Hope that helps,