sub func {}
my $x; sub foo { ++$x }
$x = 0; func foo(), 1,2,3; print "$x\n";  # 1
$x = 0; grep foo(), 1,2,3; print "$x\n";  # 3