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