# For each record:
$logged_in{$fields[2]}{$fields[0]} = 1;

# Sample usage:
foreach my $loc (sort keys %logged_in) {
   foreach my $user (sort keys %{$logged_in{$loc}}) {
      print("$user logged in at location $loc.\n");
   }
}