until ($numcount==24) {
$pass = @list[$count3].@list[$count2].@list[$count1]; #a combination of three letters
$foo = "@s[$numcount]"; #a ASCII character to try to decrypt
$karp = xor_buf($foo,$pass); # put these together using the XOR module
push @lister,$karp;
$numcount++;
}