sub print_array_with_inner_hash
{
print "Subroutine print_array_with_inner_hash\n";
  my @array2print = @_;
  my $result;
  my $field;
  
  foreach $ref_zeile (@array2print)
  {
    print "Zeile: $ref_zeile()";
    foreach $key (keys %$ref_zeile)
    {
print "Inner hash\n";
      if(defined $ref_zeile{$key})
      {
        print "  $key => $ref_zeile{$key}\n";
      }
    }
    print "\n";
  }
}