wikipediaのrubyの例をPerlにしただけ。最初にリストを分割するのに再帰をしているところとか、もうちょっといい感じにしてみたいと思ったり。 #!/usr/bin/env perl use strict; use warnings; my @a = (3, 2, 0, 5, 8, 3, 4, 1, 3, 2); mergesort(@a); sub …