seek MYFILE, 0, 0;
while(my $line = <MYFILE>)
{
...