die "Usage: $0 col[,col[...]] [file[,...]]\n" unless @ARGV;
my @cols= map { $_-1 } split/,/,shift;
print map { $_->[1] }
	sort { $a->[0] cmp $b->[0] }
	    map { my $x=join"\0\0\0\0",(split/\s*,\s*/)[@cols];
		  s/(^|[^\d.])(\d+)/$1.pack("N",$2)/eg; [$x,$_] } <>;