Probleme bei Rückgabe von Hashes

return (
   \%pos_rechnungsbereich,\%pos_produktfamilie,\%pos_anbieter,
   \%pos_vertragsnummer,\%pos_account,\%pos_anschlussart,
   \%pos_anschluss,\%pos_infoanschlussart,\%pos_infoanschluss,
   \%pos_verbindungen,\%pos_leistungen,\%pos_leistungart,
   \%pos_menge,\%pos_nettoeinzel,\%pos_nettogesamt,\%pos_steuer,
   $pos_count
 );

(
 $pos_rechnungsbereich,$pos_produktfamilie,$pos_anbieter,
 $pos_vertragsnummer,$pos_account,$pos_anschlussart,
 $pos_anschluss,$pos_infoanschlussart,$pos_infoanschluss,
 $pos_verbindungen,$pos_leistungen,$pos_leistungart,
 $pos_menge,$pos_nettoeinzel,$pos_nettogesamt,$pos_steuer,
 $pos_count
)=lese_pos();

perl -e '
sub fu(){$A{1}=b;
$B{A}=5;
return \%A,\%B;};
($rA,$rB)=fu;
print "$rA->{1} $rB->{A}\n"
'

$pos_nettogesamt{pos_count}     =$nettogesamt;

sub fu() {
  $A{1}=b;
  $B{A}=5;
  return (\%A,\%B);
};

($rA,$rB)=fu;

print "$rA{1} $rB{A}\n"

print "$pos_nettogesamt->{pos_count}\n";

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}><$Anzahl>\n"

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 $hA;
my $hB;
my $hC;
my $Anzahl;

($hA,$hB,$hC,$Anzahl)=fu;

print "<$hA->{0}><$hB->{0}><$hC->{0}>\n";
print "<$hA->{1}><$hB->{1}><$hC->{1}>\n";

pause;

my %newhash=%$refHash;