$flag_assignments{$key}{"starrez"} = $info[0];
           . . .
   $flag_assignments{$key}{"NR-Spring"} = $info[10];

##</code><code>##

   ,,"Jones, Mr.",,, 

##</code><code>##

   my $record = qq|startez\t$info[0]$sep . . . |;  ## $sep is a field separator defined by you