DB<20> use Data::Dumper

  DB<21> @a=("abc", "cd", "e", "fg", "hi", "hello world");

  DB<23> $Data::Dumper::Terse  = 1

  DB<24> $Data::Dumper::Indent = 0

  DB<25> p Dumper @a
'abc''cd''e''fg''hi''hello world'
  DB<26> p length(Dumper @a)-2*@a
21
  DB<27>