Hi,

Thank you for your reply. The one thing I cannot imagine a bit is how do I use this hash to store users. How do I add user to that hash ? If $jid is a key, then each key ($jid) must have a value. What is that value ? Anything ? Also I created some test script which checks your way of thinking.

Please take a look:

#!/usr/bin/perl

use Data::Dumper;

my %roster;

@jid= qw |test1 test2 test3 test4|;

foreach $jid (@jid)
{
    $roster{$jid} = "0";
}

foreach $jid (@jid)
{
    print Dumper ($roster{$jid});
}

@keys = keys %roster;

print "Keys: @keys\n";

$jid = "test1";

if ($roster{$jid})
{
    print "something";
}
[download]

Why the last if doesn't print "something" if the key exists ?

Thank you for your help

Regards.