my $sortscheme = sub { my @flds_a = split(/,,/, $Sort::External::a);

                  my @flds_b = split(/,,/, $Sort::External::b);

                   $flds_a[0] cmp $flds_b[0]; };