【perl】sortとreverse関数の復習

#! usr/bin/perl

use strict;
use warnings;

#◎sortとreverse関数の復習
my @array = qw(5 7 1 111 59 58 93);

my @sorted = sort(@array);
my @sorted1 = sort{$a<=>$b}(@array);
print "@sorted\n";   #出力結果=>1 111 5 58 59 7 93=> 文字コードの小さい順
print "@sorted1\n";  #出力結果=>1 5 7 58 59 93 111=> 数字の小さい順

print "\n";

my @reversed = reverse(sort{$a<=>$b}(@array));
print "@reversed\n"; #出力結果=>111 93 59 58 7 5 1=> 数字で大きい順