You already have a .csv set of data.
I am not sure what you are trying to do?

#!usr/bin/perl -w
use strict;

while (<DATA>)
{  
   s/\s//g;   #compress spaces to nothing
   my ($small, $time, $name) = split /\,/;
   print "$time,$small,$name\n";   
}

=prints
1427766557,12,bob
1427766556,5,bill
1427766555,10,bob
=cut

__DATA__
12,1427766557, bob
5,1427766556, bill
10,1427766555, bob
[download]

UPDATE: If you want to sort the .CSV file, there are ways to do this.
Please explain your objective and show input and output.