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

I think that'd be clearer as:

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

-- Randal L. Schwartz, Perl hacker