Array Perl

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