sub column_sort {
	@$::a[8] <=> @$::b[8]
			 || 
	@$::a[0] cmp @$::b[0]
			 || 
	@$::b[6] <=> @$::a[6]
			 || 
	@$::b[2] <=> @$::a[2]
			 || 
	@$::a[1] <=> @$::b[1];
}
1;