#!/usr/bin/perl

$a = "";
$b = "";
$c = "";
$d = "";
$e = "";
$f = "";
$g = "";
$h = "";
$i = "";
$j = ""; 
   
foreach $A (split(//, $a)) {
   foreach $B (split(//, $b)) {
      foreach $C (split(//, $c)) {
         foreach $D (split(//, $d)) {
            foreach $E (split(//, $e)) {
               foreach $F (split(//, $f)) {
                  foreach $G (split(//, $g)) {
                     foreach $H (split(//, $h)) {
                        foreach $I (split(//, $i)) {
                           foreach $J (split(//, $j)) {
                             print "$A$B$C$D$E$F$G$H$I$J\n";
                           }    
                        }   
                     }
                  }
               }
            }
         }
      } 
   }
}