my $foo = "Hello there" for (1 .. 3);

##</code><code>##

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