A: for(...){
  next A if not my_truthiness( $_ );
  print $a;
}

##</code><code>##

A: for(...){
  unless( my_truthiness( $_ ) ){
    next A;
  }
  print $a;
}

##</code><code>##

A: for(...){
  my_truthiness( $_ ) or  next A;
  print $a;
}

##</code><code>##

A: for(...){
  next A unless my_truthiness( $_ );
  print $a;
}