Select Code to Download

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

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

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

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