sub fu() {
  $A{1}="Hugo";
  $B{1}="Schmitt";
  $C{1}="Vorsitzender";
  $Count=1;
  return (\%A,\%B,\%C,$Count);
};

($rA,$rB,$rC,$Anzahl)=fu;

print "$rA{1} $rB{1} $rC{1}\n";