#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw( min max );
my @numbers = qw(11 5 20 3);
my $minimum = min @numbers;
my $maximum = max @numbers;
print "Minium: $minimum, Maximum: $maximum\n";