open(USER_LIST, '/etc/passwd')
    or die "Couldn't open: $!";
while (<USER_LIST>) {
  @user_info = split /:/, $_;
  $user_dict{$user_info[0]} = $user_info[4] . " " . $user_info[5];
}