in reply to Rounding to the nearest 50
use Math::Round; print nearest(50,$_),"\n" for 125,175,225,275; [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)