#!/usr/bin/perl
@t;

for($i = 0; $i < $t; $i++) {
        $t[$i] = int (rand(100)) + 1;
}

#tri 1  
@t = sort @t; #$a cmp $b
print "Ordre alphanumérique croisant";
print "@t\n";

#tri 2
@t = reverse @t;
print "Ordre alphanumérique décroisant";
print "@t\n";

#tri 3
@t = sort $a <=> $b @t;
print "Ordre numérique croisant";
print "@t\n";

#tri 4
@t = reverse @t;
print "Ordre numérique décroisant";
print "@t\n";