How do you test code that uses sorting with custom comparators?

When testing code that uses sorting with custom comparators in Perl, it's essential to ensure that your comparator function behaves correctly and handles various edge cases. Below is an example of how to implement and test custom sorting with a comparator.

# Custom comparator function for sorting
sub custom_sort {
    my ($a, $b) = @_;
    return $a <=> $b; # Example: numerical comparison
}

# Test data
my @numbers = (3, 1, 4, 2, 5);

# Sort using the custom comparator
my @sorted_numbers = sort custom_sort @numbers;

# Print sorted result
print "Sorted numbers: @sorted_numbers\n";