I have a perl script with an array of clients.

@arr = ("The ABC Corp", "AA Corp.", "BB Corp");

If I run

@a = sort (@arr);

I will get

@a = ("AA Corp", "BB Corp", "The ABC Corp");

but I want

@a = ("AA Corp, "The ABC Corp", "BB Corp");

How do I sort array without changing contents, but ignoring "The " at beginning of string using sort() function?

I do not think there is a way of doing this without writing my own sort function, but with perl you never know.