use strict;
use warnings;

sub compare {
        my ($a, $b) = @_;
        my $rand = rand();
        print "$a: $rand; $b: 0.5\n";
        return $rand <=> 0.5;
}

print join "", sort { compare($a, $b) } split //, "abcde";