#!/usr/bin/perl
  use strict;
  use warnings;

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

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

chomp( @salts, @daten );

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