#! /usr/bin/perl
use strict;
use warnings;
use Tie::IxHash;


tie my %hash1, 'Tie::IxHash';
tie my %hash2, 'Tie::IxHash';

fill_hashes( \%hash1, \%hash2 );


sub fill_hashes() {
  my $hRef1 = shift;
  my $hRef2 = shift;

  $hRef1->{Feld1} = 'Wert1';
  $hRef2->{Feld2} = 'Wert2';

  # return sparen wir uns, weil wir via Referenz direkt mit den Hashes gearbeitet haben
}