Как преобразовать массив, считанный из файла?

[mikhail1111]

Например есть a.txt вида
a1
a2
a3

Требуется чтобы при открытии файла
open(A,"a.txt");
@a=;
close(A);

 его формат соответствовал такому массиву:
@a=qw(a1 a2 a3);

chomp не помогает

[arto]

# cat >| test
a1
a2
a3
# perl -de0
  DB<1> open F,"test"

  DB<2> @a =

  DB<3> print join "+",@a
a1
+a2
+a3

  DB<4> chomp @a

  DB<5> print join "+",@a
a1+a2+a3
  DB<6> ^D
#

[ctax]

push @out,grep s/\\s$//,;

[ctax]

Так немножко точнее
push @out,grep s/\\s*$//,;