sub parse_passwd {
        open(FILE,"<","$passwd");
        while(<FILE>) {
                # $user = Login-Name des Benutzers
                # $x    = stand früher das verschlüsselte Passwort, welches nun in /etc/shadow steht 
                # $id   = User-ID des Benutzers
                # $gid  = ID der Hauptgruppe des Benutzers
                # $com  = Kommentar/Beschreibung des Benutzers
                # $home = Home-Verzeichnis des Benutzers
                ($user,$x,$uid,$gid,$com,$home)=split(/:/,$_);
                if($uid >= 1000 && $user =~ /^[A-Za-z0-9]+$/) {
                        push @{$passwd{$user}},"$uid $gid $com $home" unless exists $passwd{$user};
                }
        }
        close(FILE);
        return \%passwd;
}


sub print_passwd {
        my $var=shift;
        print Dumper($var);
}

my $get_passwd=parse_passwd();
print_passwd($get_passwd);