was grundsätzliches: ich empfehle ein tutorial wie Modern Perl - The Book

dies und anderes zu finden unter http://perl-tutorial.org/

du iterierst in der while-schleife über alle zeilen. die schleife hört erst auf, wenn fetchrow_array nichts mehr liefert. demzufolge sind nach der letzten interation $user und $passwort immer undef und damit auch gleich dem leerstring.
was für mich im übrigen darauf hindeutet, dass du eigentlich auch warnungen im log sehen müsstest und da du sie nicht siehst, fehlt vermutlich ein use warnings;

du vergleichst in der schleife $user und $passwort, aber dann tust du nichts weiter und läufst die schleife bis zu ende durch. warum machst du nicht einfach ein last; an der stelle?