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