Or more simply,

#!/usr/footprints_perl/bin/perl -w
use strict;

package joe;
my @names = ('joe', 'aaron');

package FP;
sub sortNames ($$)
{
    print "$_[ 0 ] vs $_[ 1 ]\n";
    return $_[ 0 ] cmp $_[ 1 ];
}

package joe;

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

print "sorted : @sorted\n";

__END__
P:\test>junk
joe vs aaron
sorted : aaron joe
[download]