use strict;
use warnings;
use Tie::IxHash;

my %hash1;
tie(%hash1, "Tie::IxHash");

my %hash2;
tie(%hash2, "Tie::IxHash");

my ($hash1,$hash2) = createHash();
%hash1 = %{$hash1};
%hash2 = %{$hash2};

print "%hash1:\n";
while (my ($feld, $bezeichnung) = each %hash1)
        {
        print $feld."->".$bezeichnung."\n";
        }
        
print "%hash2:\n";      
while (my ($feld, $bezeichnung) = each %hash2)
        {
        print $feld."->".$bezeichnung."\n";
        }


exit;

sub createHash
{
my %hash1;
tie(%hash1, "Tie::IxHash");

my %hash2;
tie(%hash2, "Tie::IxHash");

$hash1{'Feld1'}='Wert1';
$hash2{'Feld2'}='Wert2';

return (\%hash1,\%hash2);

}