my $z = shift;
my $w = $hash{foo};
my ($v, $u) = /pattern/g;
while (my ($s, $t) = each %hash) {...}
while (my $r = <>) {...}
...