use 5.010;
my $var = 3;
given ($var) {
    when (1)      { say 1 }
    when ([2, 3]) { say "2 oder 3" }
}