aquí veo que habres un parentesis y cierras 2!!!!
if($user[4] eq $p{usuario})&&($user[5] eq $p{pass})){ $sw=1; else $sw=0; }
tendría que quedar
if(($user[4] eq $p{usuario})&&($user[5] eq $p{pass})){ $sw=1; else $sw=0; }....ó...
if ($user[4] eq $p{usuario} && $user[5] eq $p{pass}){ $sw=1; else $sw=0; }
Espero que el error sea ese y que no tengas más inconvenientes en el código...Suerte
MonoSwim