sub foo { my $x = $_[0]; ... }