use strict;
use warnings;

sub pause {
    print '[Return] um fortzufahren ...'; <>;
}

sub fu() {
  my %A;
  my %B;
  my %C;
  my $Count;
  
  $Count=0;
  $A{$Count}="Hugo";
  $B{$Count}="Schmitt";
  $C{$Count}="Vorsitzender";
  $Count++;
  $A{$Count}="Dieter";
  $B{$Count}="Klein";
  $C{$Count}="Personalrat";
  $Count++;

  return (\%A,\%B,\%C,$Count);
};

my %rA;
my %rB;
my %rC;
my $Anzahl;

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

# Ausgabe fehlt noch bzw. funktioniert nicht.

pause;