if ($marble % 23 == 0) { .. my $prize_pos = ($prev - 7) % @circle; my $prize = splice(@circle, $prize_pos, 1); .. } else { my $next = ($prev + 2) % @circle; splice(@circle, $next, 0, $marble); .. }