my @a = (3, 4);

while (do { say "yo"; @a })
{
  say "hi mom";
  shift @a;  # no explicit loop break out
}

say "bye mom";

__END__
yo
hi mom
yo
hi mom
yo
bye mom