my $num_bells = (($hour % 4)?($hour % 4)*2:8)+($min>=30);

##</code><code>##

my $half_hour = $hour * 2 + int($min/30);
my $num_bells = ($half_hour + 7) % 8 + 1;