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