#!/usr/bin/perl

open USRS, "users" or die "can't open file: $!";

my @users = <USRS>;    
foreach $user (@users) {       
    chomp $user, $pass;   


# do stuff with $user and $pass

 
}
close USRS;