#...
    open FLOORFILE, $floorfile or die $!;
    {
          local($_);
          while (<FLOORFILE>)
          {
               print "$_\n";
          }
    }
    
#...