Select Code to Download

foreach $option ($options){

foreach $option (@$options){

my @array     = qw( a b );
my $scalar    = 'xyz';
...
for ($scalar    ) { print("$_\n"); }  print("\n");
for ($reference ) { print("$_\n"); }  print("\n");
for (@$reference) { print("$_\n"); }  print("\n");

a
b
...

a
b