sub init_personen ( \@ ) {
  my $p_ref=shift; 
  $p_ref->[0]{ vorname } = "Hugo";
  $p_ref->[0]{ nachname } = "Schmitt";
  $p_ref->[0]{ stellung } = "Vorsitzender";
}

init_personen( my @alias ) ;# Aufruf mit unsichtbarer impliziter Referenzierung