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