Perlクイズ
冷静になって考えた。あーだ、こーだやらなくてもこれだけでよかった。
リソースの無駄遣いしたプログラムばかり組んでちゃいかんね（笑）
[code]
@score = sort {$a < => $b } @score;
for my $n (0..9){
print “$n | “;
foreach( @score ){
if( ($n*10 <= $_) and ($_ < ($n+1)*10) ){
print $_ % 10;
}
}
print “\n”;
}
[/code]