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

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