Psuedo dictionary attack in perl