open(PFILE, "Activatepasswords.txt")|| die "Cannot open patterns1.txt file"; my 
@PatternArray=<PFILE>; 
close(PFILE);
pop @PatternArray if $PatternArray[-1] eq "\n";
@PatternArray = grep /\s/, @PatternArray;