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