use Math::Round;

print nearest(50,$_),"\n" for 125,175,225,275;