my @array = ("1","Option 1","2","Option 2","3","Option 3","4","Option 4");
my @quoted = map { "'$_'" } @array;

##</code><code>##

sub make_menu_items {
    my $items = shift;
    my @quoted;
    for my $item ( @{ $items } ) {
        push @quoted, "'$item'";
    }
    return \@quoted;
}