use strict;
my @items=qw(A B C a b c);
@items=sort(@items);
foreach my $item (@items){
	print "$item\n";
	}

##</code><code>##

A
a
B
b
C
c