use strict;
	use warnings;
	use Sort::Versions;
	my @version = ("1.2.3","1.3.4","1.2.31","1.12","1.12.1","1.12.12");

	my @l = sort { versioncmp($a, $b) } @version;
	$,=", ";
	print @l,"\n";
__END__
1.2.3, 1.2.31, 1.3.4, 1.12, 1.12.1, 1.12.12,