Select Code to Download

#!usr/bin/perl
use strict;
...
}
print Dumper @car_list;
exit;

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