Select Code to Download

my @array1=qw(something or something);
my @array2=qw(Another Something);
...
                print "Referenced:  @$element\n";
                }
    }

my @array4=qw(separate and yet);
my @array5=qw(flattened it);
...
            print "$element ";
            }
    }