KNN and KNN-SVM Algorithms,  using Perl