Help for this page
use strict; use warnings; ... my $ct; @options = map { ++ $ct; qq{'$ct'}, qq{'$_'} } @options; say for @options;
'1' 'Option 1' ... 'Option 3' '4' 'Option 4'