S:\Steve\Dev\PerlMonks\P-2017-05-29@0722-Cars-Arrays-Groups>perl cars0.pl
$VAR1 = 1;
$VAR2 = 1;
$VAR3 = 1;