#!/usr/bin/perl

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

while(<USRS>) {
  chomp;
  my($user, $pass) = split ':';

  # do stuff with $user and $pass
}

close USRS;