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