my $mod =  119.5 % 59.75;
print "mod = $mod\n";