{
given ($foo) {
when (/bar/) {...}
when (/baz/) {...}
}
} continue {
... always executed ...
}
####
given ($foo) {
when (/bar/) {...}
when (/baz/) {...}
}
... always executed ...
####
my $foo = "bar";
my @foo = qw [foo bar baz];
given ($foo) {
when (@foo) {say "Match"}
}