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";
                }
    }