use strict;
my $R;

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

print mySub(); #prints CONDITION WORKS\nsome string
print mySub(); #prints some string
print mySub(); #again