foreach (@inx) {
   delete @inx[$ac] if $_ =~ /^Content-Type: application\/octet-stream/;
   $ac++;
 }

##</code><code>##

@inx = grep { $_ !~ /.../ } @inx;