while (my $line = <MYINPUTFILE>){
...
}

##</code><code>##

foreach $line (@lines){
...
}