bitte keine doppelposts.

du willst prüfen, ob alle elemente deines arrays 1 sind?

benutz doch einfach List::MoreUtils

print "All items 1" if all { $_ == 1 } @list;

ansonsten kannst du noch ein grep selber bauen, ist aber ineffizienter, weil es immer alle elemente durchgeht, im gegensatz zu all().

der eigentliche algorithmus wäre eine schleife, die du mit last verlässt, sobald ein unerwünschtes element auftaucht. all() ist eben nur eine hübsche perlische variante davon.