#!/usr/bin/perl -w
use strict;

my @x =(56, 78, 3, -1, 15);

my ($max, $min) = (sort {$a <=> $b} @x)[-1,0];
print "max = $max, min =$min\n"; #prints: max = 78, min =-1