sub mkPerms {
  my($n, @arr) = @_;

  return($n ? map { my $item = $_; map { $item . $_ } mkPerms($n-1, @arr) } @arr : "");
}

print $_ . "\n" for ( mkPerms(3, 'A'..'C') );