print '1. ', (join q{,}, sort               qw(a z b y)), "\n";
print '2. ', (join q{,}, sort { $a cmp $b } qw(a z b y)), "\n";
print '3. ', (join q{,}, sort(::mycmp       qw(a z b y))), "\n";

sub mycmp
{
	return $a cmp $b;
}