# vorrausgesetzt: my $passwd = parse_passwd( '/etc/passwd' );
@user = grep { exists $passwd->{$_} } @user;