while ($x > 0) {
   say $x;
   last;
}

say $x unless $x <= 0;

$x > 0 && say $x;

# I'm sure you can come up with dozens of examples
# that achieve the same result, but are still
# slightly different.