#!/usr/bin/perl
use strict;
use warnings;
use Algorithm::Loops qw( NestedLoops );

my @list = NestedLoops(
   [ ( [ 'A' .. 'F' ] ) x 4 ],
   sub { return join '', @_ },
);
print "$_\n" foreach @list;