my $condition = ...;
while ( 1 && !$condition ) {
  # tu was
  # verändere $condition
}