for (my $n = 0; $n < 100; $n++)
    {
        # ... (Stuff)
    }

    # ... (More Stuff)

    for (my $n = 0; $n < 100; $n++)
    {
        # ... (Stuff)
    }