$test  = [ "1" , "2" ,"3" , "4" ,"5" ,"6" ,"7" , "8" ,"9" ,"10" ];

@new_Array=grep++$i%3<1,@$test;