my %roster;
# to test for person being present, using a hash:
if ( $roster{$jid} ) { .... }

# to delete people when they leave:

delete $roster{$jid};