my @array= qw(A R N D);
          splice(@array,0,4,qw(B N M C));