$server->command("query $nick $delaylist{$nick}"); #### $server->command("query $nick $_") for @{$delaylist{$nick}}; #### foreach (@nicks) { print "--> \cB$_\cB:\n"; print scalar @{ $delaylist{ $_ }} . " message(s)\n"; print "$_\n" for @{ $delaylist{ $_ }}; }