if($pword==$cpword){ open (FILE, "memberlist.txt"); while(){ push @lines,$_; close FILE; } }