Select Code to Download

my @Commands = my @lines =  [ qw/ Command Initial  Feedback End / ];

= { map {; $_ => $_ } qw/ Command Initial  Feedback End / };

use constant do {
    my $ix = 0;
...
    }
};
... die $command->[ Q_FEEDBACK() ];