Select Code to Download

@user_info = split /:/;  #$_ not needed, as it's the default
$user_dict{$user_info[0]} = [@user_info[4,5]];  #create anonymous arra
+y
...
print "User Info for $user:  $user_dict{$user}[0] $user_dict{$user}[1]
+\n";

@user_info = split /:/;  #$_ not needed, as it's the default
$user_dict{$user_info[0]} = join(" ", @user_info[4,5]);
...
print "User Info for $user:  $user_dict{$user}\n";