#!/usr/bin/perl
use strict;
use warnings;

use List::Util qw(max); #CORE nothing to install

# changed the order to make max value
# in the middle of @numbers

my @numbers = (15,5,7,3,90,9,1,20,13,9,8,
	15,16,2,6,12);
	
print "max is =", max(@numbers), "\n";

__END__
max is =90