...
{
 my $var=<FILE>;
 while ($Var)
 {
  ...
  ...
  $var=<FILE>;
 };
}
# $Var out of scope
...