sub SUB_NAME {
 for (3,2,1,0,4) { # sort by the specified columns
  my $res = ($a->[$_] <=> $b->[$_]) and return $res;
 }
}