use strict;
use warnings;
use 5.010;

use Algorithm::Loops qw(NestedLoops);

NestedLoops [([1..3]) x 5], sub { say @_ };