while ( <F2> ) 
{
  # $_ is a line from $file2
}