my @array= qw (A R N D);
@array= 'B N M C';