sub doSomething
{
  ...
   open(FILE2, $file2);
   while(<FILE2>)
   {
      # do more stuff
   }
   # At this point in the code, $_ is undef and since $_ is
   # global...
}