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