Select Code to Download

use Data::Dumper
my(@list_a)=(qw(a b c d e f g));
...
  ],
  [qw/just_a just_b both/]
)

$just_a = [
            'b',
...
          'g'
        ];