my $x = @y[0..-1].all({ $y[$^x] < $y[$^x+1] });