$file = <HIPORT>;

##</code><code>##

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