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;