Maybe your input file has unexpected line endings, like \r. Try to get rid of them with:

foreach my $ip (@ip) {
    $ip =~ s/\s+//;
[download]

Tip #3 from the Basic debugging checklist