The first step would be to identify the algorithm suitable to your set of features.

I'm not sure what kind of input data and training data you have. Maybe Scale-invariant feature transform ("SIFT") is already enough? I have a smallish implementation in Image::CCV, but most likely once you have the algorithm, you can find Perl bindings for whatever library implements it.