Select Code to Download

sub split_sort {
  my ($in_a, $in_b, $split, $sort_type) = @_;
...
    $numa1 cmp $numb1 || $numa2 cmp $numb2
  }
}

  my @numbers = qw(1:2 1:02 3:4 5:78 50:89 10:5);

...
  #   '10:5',
  #   '50:89'
  # ];