my @users;
while(<USERS>){
   chomp;
   push(@users,[split(/\|/,$_)]);
}