use Data::Dumper;
print Data::Dumper->new([\@x])->Indent(0)->Useqq(1)->Dump, "\n";

##</code><code>##

Split without chomp: 8 fields.
$VAR1 = ["A","B","C","D","","","","\n"];

Split _after_ chomp: 4 fields.
$VAR1 = ["A","B","C","D"];