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