#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use List::Util qw( min max );

my @num = qw(1 2 3 4 5);
my $max = max @num;

say "Max: ".$max;

__END__

perl test.pl
Max: 5