for my $rc (@R) {
  if ($rc->[0] eq "a") {
    delete $rc->[0-2];
  }
}