for ( my $i; machwas() and ++$i <= 5; ) {
  print $i;
}

sub machwas {1 }