my @x = [1,2],[3,4];

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