my @users;

while (<$fh>) {
    chomp $_;
    @stuff = split(/:/,$_);
    push @users, $stuff[0];
}