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