sub {
  use locale;
  $_[0] cmp $_[1];
}