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";
}