open (SALT, "salts.txt") or die $!;
 my @salts = <SALT>;
close (SALT);

open (DATEI, "worte.txt") or die $!;
 my @daten = <DATEI>;
close (DATEI);

foreach (@salts)
{
  $salt = <@salts>;
  foreach (@daten)
    {
      $pwd = <@daten>;
      print crypt($pwd,$salt)."\n";
    }
}