DB<1> $a = "a  \n"

  DB<2> x $a
0  'a  
'
  DB<3> print chomp $a
1
  DB<4> x $a
0  'a  '
  DB<5> print chomp $a
0
  DB<6> x $a
0  'a  '
  DB<7> @a = ( "abc\n", "def\n", "ghi\n" )

  DB<8> x \@a      
0  ARRAY(0x8406258)
   0  'abc
'
   1  'def
'
   2  'ghi
'
  DB<9> print chomp @a
3
  DB<10> x \@a
0  ARRAY(0x8406258)
   0  'abc'
   1  'def'
   2  'ghi'