perl -pe 'chomp; $_ = join(",", sort { $a <=> $b } split /,/) . "\n"'