while(<>){
.....
.....
if ($hour==0){ $var=0;}
# it does not happend untill we have input from keyboard
.....
.....
}