my @a = array_minus( @old, @new); push @new, splice(@a,0,3);