Thank you for your answer.

Following that I tried the following code:

sub par_num { return $a <=> $b }

$old[0]{jure} = 1;
$old[1]{juge} = 1;
$old[2]{pupe} = 3;
$old[3]{mupe} = 2;

@tri = sort par_num @old;
@old = @tri;

for $i ( 0 .. $#old ) {
    print "$i is { ";
    for $mot ( keys %{ $old[$i] } ) {
         print "$mot=$old[$i]{$mot} ";
    }
    print "}\n";
}
[download]

It works well on simple array but not on array of hashes

I guess you need to modify the code in par_num to actually return the number associated with the name, instead of doing a simple numerical comparison of the names.

sub par_num {
    $a->{ (keys %$a)[0]} <=> $b->{ (keys %$b)[0]}
};
[download]

... is untested but could do what you need.

Your code works !

Thank you very much !