my $foo = "bar";
my @foo = qw [foo bar baz];
given ($foo) {
    when (@foo) {say "Match"}
}