in reply to reference question

You're using a hash reference called $where, but you've only defined a hash (i.e. not a reference) named %where.

Update: you probably want:

print $where{$_};
Update2: scratch that update.
foreach (sort keys %count) { if ($count{$_} == 1) { print "user $_ is ONLY logged in at one place: "; print keys %{$where{$_}},"\n"; # print the single key } else { print "user $_ is logged in at: "; @where = sort keys %{$where{$_}}; print "@where\n"; } }
Since $where{$user} always contains a hash ref.

Replies are listed 'Best First'.
Re^2: reference question
by convenientstore (Pilgrim) on Jul 28, 2007 at 23:10 UTC
    thank you that worked.