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