@theList = (205, 4, 100, 1, 2, 2000, 6, 93, 2, 65);

@theSortedList = sort { lc($a) cmp lc($b) } @theList;

print join(',', @theSortedList)."\n";