my @names = qw(Brad Aaron Joseph);

package FP;
sub sortNames ($$)
{
    my ($x, $y) = @_;
    print "$x vs $y\n";
    return $x cmp $y;
}

package joe;
my @sorted = sort FP::sortNames @names;