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

##</code><code>##

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

##</code><code>##

(@{$hash{"$name$code"}})[-1]

##</code><code>##

   my ($a_ordinal,$a_name) = (@$a)[3,4];
   my ($b_ordinal,$b_name) = (@$b)[3,4];

##</code><code>##

   my ( $a_ordinal, $a_name ) = @{ $a }[ 3, 4 ];
   my ( $b_ordinal, $b_name ) = @{ $b }[ 3, 4 ];