Help for this page

Select Code to Download

Select or download this

my @ary = ( 1, 6, 0, 2, 3 );
while ( my $result = shift( @ary ) ) {
  print "$result\n";
}

Select or download this
```
1
6
```