my $sortscheme = sub { substr( $Sort::External::a, 0, 25 ) cmp substr( $Sort::External::b, 0, 25 ); };