Perl script to convert my data set to libsvm format