@arr=(['a','b','c','d'],['e','f','g'],['h','i','j'],['e','f','g'],['h','i','j'],['e','f','g'],['h','i','j'],['a','b','c','d'],['a','b','c','d']);
@arr1 = @arr;
for(@arr){print @$_, ":";}
print "\n";
$i=-1;
for(@arr){
$i++;
print "i = $i\n";
                if(@$_[0] =~ /e/){
                        splice(@arr1,$i,1);
                }
}
for(@arr1){print @$_, ":";}
print "\n";