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

##</code><code>##

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

##</code><code>##

use constant do {
    my $ix = 0;
    +{  map { $_ => $ix++ }
        qw[            
            Q_COMMAND
            Q_INITIAL
            Q_FEEDBACK
            Q_END 
        ]
    }
};
... die $command->[ Q_FEEDBACK() ];