Select Code to Download

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

@user_info[4,5];   #same as ($user_info[4],$user_info[5]);