Select Code to Download

while ($line = <$fh>) {
    # ...
}

while (defined($line = <$fh>)) {
    # ...
}

my @a = qw( 1 2 3 4 5 );

...
Next value =
Size of @a = 0
Next value =