use feature "switch";
 
 
$,=$\="\t";
@test=qw/abc def abcdef nnn/;

print "\n\n=== Given/When";
for (@test){
  print "\nGIVEN($_):";
  given($_) {
    when (/abc/) { print "abc";continue }
    when (/def/) { print "def" }
    when (/xyz/) { print "xyz" }
    default { print "default" }
  }
}
 
 
print "\n\n=== For";
for (@test){
  for ($_){
    print "\nFOR($_):";
    if (/abc/) { print "abc"}
    if (/def/) { print "def" ;next}
    if (/xyz/) { print "xyz" ;next}
    print "default";
  }
}
 
print "\n\n=== For/Continue";
# "simplifying" the former with post-ifs and &&
# using continue-block
my @res;
for (@test){
  push (@res, "abc")         if (/abc/);
  push (@res, "def") && next if (/def/);
  push (@res, "xyz") && next if (/xyz/);
  push (@res, "default");
} continue {
  print "\nFOR/CONT($_):",@res;
  @res=();
}
 
 
print "\n\n === When smartmatch\n";
 
print "\n= GIVEN(\@test):\n";
given(@test) {
  print "whats tested is:",$_;
  when (/abc/) { print "abc";continue }
  when (/def/) { print "def" }
  when (/xyz/) { print "xyz" }
  default { print "default" }
}
 
print "\n= GIVEN(\\\@test):\n";
# does when act differently when a arr_reff is passed?
given(\@test) {
   print "whats tested is:",$_;
  when (/abc/) { print "abc";continue }
  when (/def/) { print "def" }
  when (/xyz/) { print "xyz" }
  default { print "default" }
}
 
# whats the point of implicit smartmatch if only scalars can be testet??? smartmatchingan array is different
print "\nBUT: def ~~ \@test!" if @test ~~ /def/;

##</code><code>##

=== Given/When	
GIVEN(abc):	abc	default	
GIVEN(def):	def	
GIVEN(abcdef):	abc	def	
GIVEN(nnn):	default	
 
=== For	
FOR(abc):	abc	default	
FOR(def):	def	
FOR(abcdef):	abc	def	
FOR(nnn):	default	
 
=== For/Continue	
FOR/CONT(abc):	abc	default	
FOR/CONT(def):	def	
FOR/CONT(abcdef):	abc	def	
FOR/CONT(nnn):	default	
 
 === When smartmatch
	
= GIVEN(@test):
	whats tested is:	ARRAY(0x8a08a38)	default	
= GIVEN(\@test):
	whats tested is:	ARRAY(0x8a08a38)	default	
BUT: def ~~ @test!