#!/usr/bin/perl
#Commented Padre relict:use 5.006;
#use strict;
use warnings;

@array = (5,2,4,9,45,3,10,7,99,12);

$big = 0;
foreach (@array) {
	if ($_ > $big) {
	   $big = $_;
	}
}
print "$big\n";