sub cinq($a where (all(@$a) ~~ Int and $a.elems == 2),$b  where (all(@$b) ~~ Int and $b.elems == 2)){
    say "a : " ~ $a[0] ~ ", " ~ $a[1];
    say "b : "  ~ $b[0] ~ ", " ~ $b[1];
}

#caller with 2 Lists
cinq (2,3), (4,5);
#caller with 2 List too (Parentheses must touch sub name)
cinq((22,23), (11,25));