IN addition to the comments above,

my %ports = (80,8080,81,8181);
[download]

should be:

my @ports = (80,8080,81,8181); ## Array, not hash
[download]

You should also consider using a module like NetAddr::IP to manage IP address analysis, and iterating ranges.

In fact, Nmap::Scanner Could probably do the entire job for you very professionally.