Array Perl

print sort {$b cmp $a} ("c", "b", "a");