@temp = map { s/^The // } @indata;
@sorted = sort {lc($a) cmp lc($b) } @temp;