(my $line); # scoped outside of `while` block while ($line = <>) { } #### while (my $line = <>) { # $line scoped only inside of `while` block }