#!/usr/bin/perl

use strict;
use warnings;

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

sub get_as_ref
{
 my ($ref_A, $ref_B, $ref_C)=@_;
  $ref_A->{1} = "Hugo";
  $ref_B->{1} = "Schmitt";
  $ref_C->{1} = "Vorsitzender";
  my $Count = 1;
  return $Count;
}

my $Anzahl;
my (%A, %B, %C);
my ($ref_A,$ref_B,$ref_C);

($rA,$rB,$rC,$Anzahl)=return_as_ref();
print "$ref_A->{1} $ref_B->{1} $ref_C->{1}\n";

# derefernzieren:
%A=%{$ref_A};
%B=%{$ref_B};
%C=%{$ref_C};
print "$A{1} $B{1} $C{1}\n";


%A=(); %B=(); %C=();
$Anzahl=get_as_ref(\%A, \%B, \%C);
print "$A{1} $B{1} $C{1}\n";