#!/usr/local/bin/perl -w

$, = "\n";

chomp(@indata = <DATA>);

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

print @indata, "---", @temp, "---", @sorted, "---\n";

__DATA__
The Dog
A Bird
The Cat
Lots of Fish

##</code><code>##

Dog
A Bird
Cat
Lots of Fish

---
1

1


---



1
1
---