Thank you mate for helping, this helped me a lot and this helped me closer to completing my task :)
I implemented your method, and then instantly googled it, so now im familiar with it; I just couldn't find an implemented operator for dealing with XOR, sorry, I new :)

PS! I didn't use the foreach loop:
NB! The code is using "while" because it worked even less with "foreach" loops(it only read the first letter). Thanks!

#!/usr/bin/perl

#$outfile = "output.txt";
#open(HANDLE, ">>$outfile");

@s=(79,59,12,2,79,35,8,28,20,2,3,68,8,9,68,45,0,12,9,67,68,4,7,5,23,27
+,1);

foreach my $c1 ('a'..'z') {

foreach my $c2 ('a'..'z') {

foreach my $c3 ('a'..'z') {

until ($numcount==27) {
$pass = $c1.$c2.$c3;
$foo = $s[$numcount];

$string1 = "$foo";
$string2 = "$pass";
$xored = $string1^$string2;

$numcount++;
push @lister,$xored;
}
print @lister, " - $foo - $pass\n";
@lister = 0;
$numcount=0;
}
}
}
[download]