sub modifier { int($_[0]/2)-5 }