my @x = [1,2],[3,4];
if all( map{ $x[$_]->[0]}(1..3) ) > 3 ){
    say "Alle über drei."
}