Select Code to Download

my %stacks = ( A => [],
               B => [],
...
push @$current_stack, 'whatever';

# etc.;

my %stacks; @stacks{ @names } = map [], @names;