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

##</code><code>##

package MyClass;

use strict;
use warnings;

sub new
{
	my $class = shift;
	my $self = {
        number_of_items => shift,
		menu_items => shift,
	};
	make_menu_items();
	bless $self,$class;
	return $self;
}
sub make_menu_items {
    my $items = shift;
    for (my $i=0; $i < $items->{number_of_items}; $i++)
    {
     $items->{menu_items}[$i] = "'$items->{menu_items}[$i]'";    
    }
}

1;


##</code><code>##

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