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