You didn't provide get_options, so I have to guess that $options is a reference to an array. If so,

foreach $option ($options){
[download]

should be

foreach $option (@$options){
[download]

because you want to loop over every item in the array referenced by the scalar $options.

my @array     = qw( a b );
my $scalar    = 'xyz';
my $reference = \@array;

for (@array     ) { print("$_\n"); }  print("\n");
for ($scalar    ) { print("$_\n"); }  print("\n");
for ($reference ) { print("$_\n"); }  print("\n");
for (@$reference) { print("$_\n"); }  print("\n");
[download]

a
b

xyz

ARRAY(0x226b04)   # A ref is just a scalar

a
b
[download]