(my ($filename, my ($filemode, my ($opmode, my $filetype))))
   = "/path/file",    "immolate",      "seek",  "image/gif";

##</code><code>##

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

    # ... (More Stuff)

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