Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
while (my $item = shift @array) {
    print "$item $_\n" for @array;
}

Select or download this
```
4 5
4 7
...
12 23
12 45
23 45
```