print "$_->[0]<BR>$_->[1]<BR>$_->[2]<BR>"
   foreach (sort {$a->[1] cmp $b->[1]} @ODB);