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

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

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

(%hash1,%hash2) = createHash();

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);

}