require sleep and exit;

my @mind = q(
    awake,
    thoughtful,
    distracted
);

until (@mind = ()) {
    my $rest = 0;
}