#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

my @trans = ( sub { shift }, sub { ~ shift } );
my @unsorted = qw/foo bar baz/;

for my $tr (@trans) {
    my @sorted = sort { $tr->($a) cmp $tr->($b) } @unsorted;
    say "@sorted";
}

__END__