if($pword eq $cpword){ open (FILE, "< memberlist.txt") or die $!; while(){ push @lines,$_; } close FILE or die $!; }