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