Select Code to Download

my ($loc, %location) = -1;
for ($quart1, $quart2) {  # or better, @quart
...
        push @{$location{$_}}, $loc;
    }
}