#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use List::MoreUtils qw( minmax );

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

say "Min: ".$min;
say "Max: ".$max;

__END__

perl test.pl
Min: 1
Max: 5