Variablen Referenz in Subs

[borewa]

Guten Tag,

Ich übergebe ein paar Referenzen von Variablen (Array, Scalar, Hash) an verschiedene Subs, die die überprüfen und auch veränderungen an den Variablen vornehmen.

Der Aufruf ist natürlich klar ...
&check_kunde(\@Array, \Scalar);

Nur muss ich ja innerhalb des Sub mit @$ oder $$ arbeiten um die Varibalen ansprechen zu können, was mir aber auf dauer etwas zu nervig ist, da ich größere Teile ins Sub auslagere und da nicht überall ein zusätzliches $ einfügen möchte.

sub check_kunde ($$) {  
$nummern = shift;  
  
$nummern_art = shift;  
my $elem;  
  
   foreach $elem (@$nummern) {  
      $$nummern_art = 1;  
   }  
}

Wenn ich dies hier mache, dann kann ich die Variablen ganz normal mit @ oder $ ansprechen.

sub check_kunde ($$) {  
$nummern = shift;  
@nummern = @$nummern;  
  
$nummern_art = shift;  
$nummern_art = $$nummern_arten;  
  
[...]  
}

Gibt es aber vielleicht eine kürzere version davon, weil jedes mal 2 Zeilen nur um die Variable etwas um zubiegen ist auch nervig, bzw. verringert etwas die übersicht.
Gibt es keine Abkürzung richtig:
@array = @shift;