Well, lines means array, and rows/columns means array-of-arrays

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

or if you need names, array-of-hashes

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

or if you need names and space savings of array

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