use strict;
use warnings;

use feature qw{ say };

my @options = (
   q{Option 1},
   q{Option 2},
   q{Option 3},
   q{Option 4},
   );
my $ct;
@options = map { ++ $ct; qq{'$ct'}, qq{'$_'} } @options;
say for @options;

##</code><code>##

'1'
'Option 1'
'2'
'Option 2'
'3'
'Option 3'
'4'
'Option 4'