Help for this page
use strict; use warnings; ... while (my $item = shift @array) { print "$item $_\n" for @array; }
4 5 4 7 ... 12 23 12 45 23 45