Select Code to Download

package MyClass;
use strict;
...
     }
}
1;

use MyClass;

...

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

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