my $r = (temp> 100? 1000: 1250);