#!/usr/bin/perl

# ARGV[0] is the input file name (first parameter)
#print $ARGV[0];
open(MYF, "<$ARGV[0]");
@lines = <MYF>;
close(MYF);
$values = "";
$summations = "";

foreach my $line (@lines) {
	@values2 = split(/\,/, $line);
	$sum = 0;
	$val = 0;
	foreach my $val (@values2) {
		#print $val;
		#print "val is $val\n";
		$sum = $sum+$val;
	}
	#print "sum: $sum\n";
	# First check to see if the summation is not already in the list.
	$no_go = 0;
	#foreach my $pre (@summations) {
	#	if ($pre == $sum) {
	#		$no_go = 1;
	#	}
	#}
	if (!$no_go) { push(@summations,$sum); }
}

@s = sort @summations; #{$b <=> $summations} @summations;

for ($i = 0; $i < 50; $i++) {
	print "" . $s[$i] . "\n";
	# Which graph ID is this associated with?
	#$j = 0;
	#foreach my $line (@lines) {
	#	@values2 = split(/\,/, $line);
	#	$sum = 0;
	#	$val = 0;
	#	foreach my $val (@values2) {
	#		$sum = $sum+$val;
	#	}
	#	if($sum == $s[$i]) {
	#		if ($j < 10) { print "\tcandidates00$j.dsm\n"; }
	#		elsif ($j < 100) { print "\tcandidates0$j.dsm\n"; }
	#		else { print "\tcandidates$j.dsm\n"; }
	#	}
	#	$j++;
	#}
}