shift @cols; #Remove the first column
for (@cols) {
   delete $cols[$regex here]
   }