my $ircsession = $kernel->alias_resolve('irc_bot');
my $heap = $ircsession->get_heap();

foreach (keys %{$heap->{USERLIST}} ) {