for (@array) {
 my $num = s/^The //;
 push @temp, $num;
}