Select Code to Download

use Algorithm::Loops qw( NestedLoops );
my @digits = (1..3);
...
    [ (\@digits) x 4 ],
    sub { print( @_, "\n" ); },
);