Wie kann ich einer Subroutine mehrere Arrays übergeben?

Inhalt:

Das Referenzieren der Arrays ermöglicht den Zugriff in der Subroutine.

my @farben=('schwarz','braun','rot','orange');

my @zahlen=('1','10','100','1000');

Arrays referenzieren mit \@

zeige_tabelle(\@farben,\@zahlen);

---

sub zeige_tabelle {

my $farben=shift;

my $zahlen=shift;

Auslesen

for(@$farben) { print $_; }

for(@$farben) { print "$_\n"; }

}