sub blah
{
  my $foo if 0;
  print $foo++,$/;
}
blah(),blah(),blah();