use strict; 
use warnings; 

$_ = "ArraySize 4285";

my $luns_per_array = 10;
my $logical_size; # useless variable?

if ( /^ArraySize (.+)/ ) 
	{ 
	print "\nArray: " . $1 . " yields a LUN of " . int($1/$luns_per_array) . "GB\n" ; 

	$logical_size = int($1/2); 
	
	if ( ( $logical_size * $luns_per_array ) == $1 ) 
		{
		{$logical_size--;} 
		}
	}