if (sleep() and sleep ($dreamed) and
    ($dream = grep {/beautiful/} @{$heaven{'flower'}})) {
  alarm();
}

$SIG{ALRM} = sub {
  $your{'hand'} = $flower;
  exit (rand(1000));
}