$delaylist{ $_ } .= $msg . "\n";

##</code><code>##

    foreach (@nicks) {
        print "--> \cB$_\cB:\n";
        print "$_\n" for split /\n/, $delaylist{ $_ };
    }

##</code><code>##

        print ("query $nick $_") for split /\n/, $delaylist{$nick};