use warnings;
use Math::Round;

print round(7.4999999), $/;   # yields 7
print round(7.5000000), $/;   # yields 8

print nearest(5,7.4), $/;     # yields 5
print nearest(5,7.6), $/;     # yields 10
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)