#!/usr/bin/perl -w
use strict;
print "\n";
print "How big is the array: ";
chomp (my $n =<STDIN>);
print "\n";
print "The array contains: ";
print "\n";
my @array;
for (my $index=0; $index < $n; $index ++) {
	push @array, int (rand(91))+10; 
}
foreach (@array) {
	print $_, "\t";
}

print "\n\n";
print "How many elements per line: 4\n";
print "The array contains: ";
print "\n";
my $counter = 0;
foreach (@array) {
	print $_, "\t";
	$counter ++;
	if ($counter % 4 == 0) {
		print "\n";
	}
}
print "\n\n";
print "The largest element is: ";