my @array = ("A", "B", "Z", "F", "c", "H", "8");

print join(' ', sort { $a cmp $b } @array), "\n";