use Algorithm::Loops 'NestedLoops';

my %pat = (
  L => ['a' .. 'z'],
  N => [0 .. 9]
);

my $pattern = shift || "LLN";

NestedLoops(
  [ @pat{ split //, $pattern } ],
  sub { print join("", @_), $/ }
);