Select Code to Download

my $ignore = '(^The )|(^A )';
...
...
    $b =~ s/$ignore//;
    lc( $a ) cmp lc( $b );
  } @indata;

%data = map { my $data = $_; s/$ignore//; ($_, $data } @indata;

@sorted = @data{ sort{ lc( $a) cmp lc( $b)} keys %data };