sub machWas {
  ...
}

sub ladeTabellen {
  my $rc = 512;
  $rc = machWas(...) while ($rc == 512);
  
  if ($rc != 0) {
    ...
  }
  else {
    ...
  }
}