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];