foreach(values %users) {
      my %user=$_;
      my $pw=getpwnam($user{uname});
      my $homedir=$pw->dir;
}