Select Code to Download

foreach (@temp)
   {
      sub($x0, $y0, $x1, $y1, @temp)
   }
}

foreach my $key (keys %other_hash)
    {
...
            }
#        }
    }

sub innerloop {
    my ($x2,$y2,$x3,$y3)= @_;
...
#            }
        }
    }