Perlで基数ソート

「ゲーム制作者のための物理シミュレーション 剛体編(Amazon)」という本を読んでいたら、 基数ソート(Radix sort)なるものを見つけたのでPerlで実装してみた。