sub fuenf_rnd($) { return 5* int(0.5+shift/5) }