#!/usr/footprints_perl/bin/perl --

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

package FP;
sub sortNames ($$)
{
    print "$a vs $b\n";
    return $a cmp $b;
}

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

print "sorted : @sorted\n";

__END__
 vs 
sorted : joe aaron