The problem that you are running into here is with this line

$file = <HIPORT>;
[download]

What you have done there is not what you think. When you assing $file to the <> operator it grabs one line - not every line. Either assign it to an array (@file) which will put each line as an array entry, or even better loop through the file with

while my $file(<HIPORT>){
   #do stuff
}
[download]