#!/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";
IyEvdXNyL2Jpbi9wZXJsCnVzZSBzdHJpY3Q7CnVzZSB3YXJuaW5nczsKdXNlIExpc3Q6OlV0aWwgcXcoIG1pbiBtYXggKTsKbXkgQG51bWJlcnMgPSBxdygxMSA1IDIwIDMpOwpteSAkbWluaW11bSA9IG1pbiBAbnVtYmVyczsKbXkgJG1heGltdW0gPSBtYXggQG51bWJlcnM7CnByaW50ICJNaW5pdW06ICRtaW5pbXVtLCBNYXhpbXVtOiAkbWF4aW11bVxuIjs=