my($n1,$n2,$letter,$ordinal,$name,$code) = 
              (my @record = split(/[\s,]+/,$_));
  push (@DB, [@record]);