#!/usr/bin/perl
use warnings;
use strict;
use Data::Dump;
########

 my $aref = [1, 6, 2, 2, 7, 1, 6, 99, 99, 7];
 my $flag = 0;
 my $i = 1;
 my $sixindex = 0;
 my $spliced = 0;
 my @copy = @$aref;
if (scalar(@$aref) >= 2) {
    foreach my $x (0..$#{$aref}) {
        print "pass $x\n";
        dd $aref;
        dd \@copy;
        if (defined($aref->[$x])) {
               if ($aref->[$x] == 6) {
                 $flag = 1;
                 $sixindex = $x;
                 next;
               }

             if ($flag) {
                   unless ($aref->[$x] == 7) {
                     $i++;
                         next;
                  } elsif ($aref->[$x] == 7 ) {
                         print "splice ",$sixindex-$spliced, " ",($i+1),"\n";
                         splice(@copy, $sixindex-$spliced, $i + 1);
                         $spliced += $i + 1;
                         $flag = 0;
                         $i = 1;
                         $sixindex = 0;
                     next;
              }
          }
      }
    }
}

dd \@copy;