Perl6 って好きかも

{$^x} が素敵です。

#!/usr/bin/pugs

my $fruit = ("apple", "orange", "banana");
{$^x.sort.join(",")}($fruit).say;