get max number in perl

1. way 1, use max.

#!/home/utils/perl5/perlbrew/perls/5.24.2-015/bin/perl

use List::Util qw(max);
use Data::Dumper;

my @number = ("1", "3", "5", "8");
print Dumper(@number);
my $max_number= max @number;
print "$max_number\n";

1.  way2, use sort { $b<=>$a}

#!/home/utils/perl5/perlbrew/perls/5.24.2-015/bin/perl

use Data::Dumper;

my @number = ("1", "3", "5", "8");
my @number_sort = sort { $b <=> $a } @number;
print Dumper(@number_sort);
my $max_number= @number_sort[0];
print "$max_number\n";