my $a = [1, [2, 3], 4];

match ($a) {
  case [1, $b, ...]: print $b->[1]; # gibt 3 aus
  ...
}