while(<FILE>)
{
        @Array1 = <FILE>;
}

##</code><code>##

my @arr;
while ( <$fh> )
{
    chomp;
    push @arr, $_;
}

##</code><code>##

my @arr = <$fh>;
chomp @arr;

##</code><code>##

chomp( my @arr = <$fh> );