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