sub ShowIt {
 print join(',',@_);
}

@Foo = (1,2,3);
&ShowIt(@Foo);

##</code><code>##

sub ShowIt {
 my $Array1 = $_[0];
 my $Array2 = $_[1];
 print "Array 1: ".join(',',@$Array1)."\n";
 print "Array 2: ".join(',',@$Array2)."\n";
}

@Foo = (1,2,3);
@Bar = (4,5,6);
&ShowIt(\@Foo,\@Bar);

##</code><code>##

@Cities_DE = ('Berlin','Hannover','Hamburg');
@Cities_US = ('New York','Miami','Las Vegas');
%Cities = ('DE' => \@Cities_DE,
           'US' => \@Cities_US);
print "Where are you?".join(',',@$Cities{$Country});