#!/usr/bin/perl

sub afficher {
        foreach(@_) {
                print;
        }
}

sub trier {
	return $a <=> $b;
}

@t;

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

#tri 1
@t = sort @t; #$a cmp $b
afficher @t;

#tri 2
@t = reverse @t;
afficher @t;

#tri 3
@t = sort trier@t;
afficher @t;

#tri 4
@t = reverse @t;
afficher @t;