only getting last value from regex

[Sven Bentlage]

Hi

using the code below I only get the last line from the file.
Can anybody tell me what I'm doing wrong?
(The empty lines do not change anything..)

Thanks for your help

Sven

file:           
        John;123
        Jane;456
        Ed;789

code:
        open(USER,"<$user_access_file") or die "Not fund $!\n";
                        
                                while (<USER>) {
                                                
                                                @user = split(/;/);
                                
                                }
                                foreach ($_) {
                                unless (($f_name eq $user[0]) and ($f_pw eq $user[1])) 
{
                                                                                       
                                                 print_data($user[0]);
                                                                                       
                                                 exit;
                                                                                       
                                                         
                                }
                                else {
                                                get_name();
                                                                                       
                                                         exit;
                                        }
                                
                                }
                                close(USER);
                                        


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]