perl -e '$_ = 100; for(1..5){};print;'

##</code><code>##

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

##</code><code>##

...
building2

floor1
aldfja;jd;af

floor2
aldfja;jd;af

floor3
aldfja;jd;af