Select Code to Download

#!/usr/bin/perl -w

...
3,vw,bug
3,vw,jetta
3,vw,phaeton

my @carmakers = (
  \%thismaker,
  \%thismaker,
  \%thismaker
);

my %thismaker = ('thismaker' => 'gm', 'makes' => \@makes);

my @makes = (\%thismake, \%thismake, \%thismake);

my %thismake = ('thismake' => 'saturn');
my %thismake = ('thismake' => 'chevy');
my %thismake = ('thismake' => 'caddy');

<tmpl_loop carmakers>
    <tmpl_var thismaker>
...
        <tmpl_var thismake>
    </tmpl_loop>
</tmpl_loop>

my $seen = 0;

...
    $maker{'makes'} = \@makes;
  }
}

while (looping over something) {
  if (cond1) {
...
    do a bunch of other things
  }
}