@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";