use Data::Dumper;

my @foo = ("abc", "bc");
print Dumper(sort bar1 @foo);
print Dumper(sort bar2 @foo);

sub bar1 {
	return $a gt $b;
}

sub bar2 {
	return length($a) gt length($b);
}