FWIW, one of the reasons Perl 6 (now Raku) was started, was to fix the errors made in Perl, to be able to get an even more natural language. Even for difficult things:

  react {
    whenever signal(SIGINT) {
      say "Aborted";
      done;
    }
    whenever Promise.in(3) {
      say "Timed Out"
      done;
    }
  }
  say "Goodbye";

This little program will wait for you to press Control-C or 3 seconds, whichever comes first. And say "Goodbye" on the way out.