# using continue-block
my @res;
for (@test){
  push (@res, "abc")         if (/abc/);
  push (@res, "def") && last if (/def/);
  push (@res, "xyz") && next if (/xyz/);
  push (@res, "default");
} continue {
  print "\nFOR/CONT($_):",@res;
  @res=();
}

##</code><code>##

=== For/Continue	
FOR/CONT(abc):	abc	default