#!/bin/env perl

use strict;
use warnings;

my @tab =
    qw(Afficher les mots de cet
       ennoncé par ordre décroissant);
my @trie = sort { $b cmp $a } @tab;
foreach my $elem (@trie) {
    print "$elem\n";
}
