if ($a[0] >= $b[0]) { return (\@a, \@b) ; }
                 else { return (\@b, \@a) ; } ;
} ;