Help for this page
while ($line = <$fh>) { # ... }
while (defined($line = <$fh>)) { # ... }
my @a = qw( 1 2 3 4 5 ); ... Next value = Size of @a = 0 Next value =