(@sortkey)=('0','1','2','3','4','5','6','7','8','9','10','11','12','13','14','15
');
(@names)=("xyz","iop","abc","opop","qwer","kkkk","wwww","qqqq","wwpp","klkoo","p
pii","mmmm","hhhh","yyyy","ssss","eee");
@sortkey = sort { lc($names[$sortkey[$a]]) cmp lc($names[$sortkey[$b]]) } @sortk
ey;

foreach $i (0..$#names) {
        print "$names[$sortkey[$i]]\n";
}