my @array1=qw(something or something);
my @array2=qw(Another Something);
showElement(\@array1, \@array2);   #by reference

sub showElement{
    foreach $element (@_){
                print "Unreferenced: $element\n";
                print "Referenced:  @$element\n";
                }
    }

##</code><code>##

my @array4=qw(separate and yet);
my @array5=qw(flattened it);
showElements(@array4, @array5);   #as-is

sub showElements{
    foreach $element(@_){
            print "$element ";
            }
    }

##</code><code>##