foreach $option (@{$dataoptions{$columns[$i]}}) #### print qq($option);