{
  my $R;

  sub mySub {
      unless ($R) {
          print "CONDITION WORKS\n";
          $R = 'some string';
      }
  }
}