$server->command("query $nick $delaylist{$nick}");

##</code><code>##

        $server->command("query $nick $_") for @{$delaylist{$nick}};

##</code><code>##

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