#!/usr/bin/perl use strict; use warnings; open (SALT, "salts.txt") or die $!; my @salts = ; close (SALT); open (DATEI, "worte.txt") or die $!; my @daten = ; close (DATEI); foreach my $salt (@salts) { foreach my $pwd (@daten) { chomp $salt; chomp $pwd; print crypt($pwd,$salt)."\n"; } }