my @array;
while (<DATA>) {
	chomp;
	$array[$_]++;
}
my $found_flag=1;
while ($found_flag) {
	$found_flag=0;
	for my $o (0..$#array) {
	  if ($array[$o])  {
	  	print $o,"\n";
	  	$array[$o]--;
	  	$found_flag=1;
	  }
	}
}

__DATA__
2
2
2
3
3
3
4
4
4