@a=('a', 'b', 'c');
$a = @{[sort(@a)]};
print $a;