Ich würde ein Array in einer sub so übernehmen:
my ($arrayref) = @_;
Und in $arrayref->[] hat man dann eine echte Referenz. Aber ich bin nicht sicher, ob es daran liegt, in Perl gibt es immer mehrere Wege und ich bin immer froh, wenn ich einen weiß.

Und in deinem Fall würde ich alle Arrays vorher in ein Hash packen und diesen übergeben, damit man keine variable Anzahl von Übergaben hat.