while (my $val = shift @array) {
     # ...
}