#!/usr/bin/perl -w
use strict;

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

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