my @array = qw( A R N D );
@array = split /\s+/, 'B N M C';