foreach $person (keys %who) { 
$time_lastlog = $who{$person};
$tmin = $time - $time_lastlog;
if ($tmin >= 2) {
delete $who{$person};     #deletes person for not being active...the 2 second thing is just so I could test it.
                  }
else             {
$who{$Account::account} = "$time";  #adds member to the list because he aint idle and still active
                 }


}