my %users = map {
    $_ => [ getpwnam $_ ]
    } qw( adrian adm sys alcatel );