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;