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