again, instead of my $p, do my ($nick,$idle)=@{message->{params}};