!c:/Perl/bin/perl.exe -w
use strict ;
use warnings ;
use English ; # required to use long variable names
use vars

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--;}
   }