use strict;
use warnings;

my ($rA,$rB,$rC,$Anzahl)=fu();
print "$rA->{1} $rB->{1} $rC->{1}\n";

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