while (<FH>) {
   chomp $_;
   $a[$i]=$_;
   $i++;
}

##</code><code>##

@a = <FH>;  # diamond operator in "list" (or array) context
            # will read all input records into array elements
chomp @a;   # chomp can work on a list

##</code><code>##

while (<FH>) {
   chomp;        # $_ is the default arg to chomp;
     # ... do other things to $_ if necessary ...

   push @a, $_;  # add a new element at end of @a
}

##</code><code>##

 perl -e '@a=qw/one two three four/; print @a,$/'

 perl -e '@a=qw/one two three four/; print "@a$/"'

 perl -e '@a=qw/one two three four/; print join(" ", map { "foo=$_" } @a), $/'