super basic highpass dithering works in perl