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