my $mussnoch = 1;

while ($mussnoch) {
    ...
    if (bedingung) {
       print "beeb "; #oder welche Aktion auch immer
       $mussnoch = 0;
   }
}