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;