if($x)
{
  my $y;
  ...
}
$y ...

##</code><code>##

use strict;

my $c = 0;
while(<>)
{
  chomp;
  $c++;
  my $a;
  print "1:  $a iteration $c\n" if $a;
  $a = $_;
  print "2:  $a iteration $c\n" if $a;
}