Perlでリスト内の同じ値を取り除きたい場合は、ハッシュを使えば簡単にできます。my @array = qw(a b a d d d c); my %hash…