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

my @alias;
init_personen ( \@alias );
print $alias[0]{ nachname }