Select Code to Download

$VAR1 = bless( {
                 'menu_items' => [
...
                                 ],
                 'number_of_items' => 8
               }, 'MyClass' );

package MyClass;

...

1;

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);