package MyClass;
use strict;
use warnings;

sub new
{
	my $class = shift;
	my $self = {
		menu_items => shift,
	};

	make_menu_items();
	bless $self,$class;
	return $self;
}

sub make_menu_items
{
 	my $self = shift;
 	my $items = $#{$self->{menu_items}};
 	for (my $item = 0; $item < $items; $item++)
	{
		$self->{menu_items}[$item]="'$self->{menu_items}[$item]'";
 	}
}
1;

##</code><code>##

use MyClass;

use strict;
use warnings;

my @array = ("1","Option 1","2","Option 2","3","Option 3","4","Option 4");
my $obj = MyClass->new(\@array);

##</code><code>##

$VAR1 = bless( {
                 'menu_items' => [
                                   '1',
                                   'Option 1',
                                   '2',
                                   'Option 2',
                                   '3',
                                   'Option 3',
                                   '4',
                                   'Option 4'
                                 ]
               }, 'MyClass' );