my @array = (1,2,4);
while (@array) {
#...
}