use Data::Dumper;
my @A = qw();
my @B = qw(A B C D);
print Dumper(@A or @B);