my @Commands = my @lines = [ qw/ Command Initial Feedback End / ]; #### = { map {; $_ => $_ } qw/ Command Initial Feedback End / }; #### use constant do { my $ix = 0; +{ map { $_ => $ix++ } qw[ Q_COMMAND Q_INITIAL Q_FEEDBACK Q_END ] } }; ... die $command->[ Q_FEEDBACK() ];