Select Code to Download

$flag_assignments{$key}{'starrez'}      = $info[ 0];
$flag_assignments{$key}{'abbreviation'} = $info[ 1];
...
$flag_assignments{$key}{'RA-Summer'}    = $info[ 8];
$flag_assignments{$key}{'NR-Fall'}      = $info[ 9];
$flag_assignments{$key}{'NR-Spring'}    = $info[10];

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