use strict;
use warnings;
use Data::Dumper;

my $val = q| my @array= qw(A R N D);
splice(@array,0,4,qw(B N M C));
print Dumper \@array;
|;
eval($val);