Select Code to Download

use strict;
use warnings;
...
my $ct;
@options = map { ++ $ct; qq{'$ct'}, qq{'$_'} } @options;
say for @options;

'1'
'Option 1'
...
'Option 3'
'4'
'Option 4'