foreach (
　map {
　　do{
　　　$ninzu++;
　　　$rank = $ninzu if ($_->[1]!=$prevscore);
　　　$prevscore=$_->[1];
　　};
　　[$rank, $_->[0], $_->[1]]
　}
　sort { $b->[1] <=> $a->[1] or $a->[0] cmp $b->[0] }
　map { [split /,/] }
　<DATA>
)
{print "$_->[0]位,$_->[1],$_->[2]\n"}