push( @{$users}->{$channelname}->{MEMBERS}},$username);
################################
@a = keys of %channel;
@b = ();
################################
foreach my $a of (@a) { 
    @b = @{$channel}->{$a}->{MEMBERS};
}