Help for this page
my $x;
my $y = undef;
my $z = shift; my $w = $hash{foo}; ... while (my ($s, $t) = each %hash) {...} while (my $r = <>) {...} ...