BTW, your sub's code:

sub reversi {
my (@array) = @_;
print resverse sort(@array);
}
[download]

should be:

sub reversi {
my (@array) = @_;
print reverse sort(@array);
}
[download]

There's a typo on reverse.

Regards,