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