my $var ;
  while(1){
    $var = &foo() ;
    ...
  }