If you must do it in Perl, maybe. But if you're processing an image, maybe you want to look into Image::Magick. Or maybe you want to write this routine in C / XS?

Philosophy can be made out of anything. Or less -- Jerry A. Fodor