Mikä While(1)???

Katselin yhtä Perl koodin pätkää ja törmäsin seuraavaan:

sub WriteVarLen {
   my ($value) = @_;
   my $buffer=0;
   my $r;
    $buffer = $value & 0x7f;
    while(($value >>= 7) > 0) {
       $buffer = 8;
         } else {
         return($r);
         }
    }
}

Mitä tuo while(1) tuossa tarkoittaa??? Mikä on yksi kun while-looppia ei enää suoriteta?

Kutsu on:

my $r = WriteVarLen(200);