#!/usr/bin/perl

use strict;

my (%hash1, %hash2) = &build_hashes;

foreach (keys (%hash1)) {
  print $_, ":", $hash1{$_}, "\n";
} # end-foreach

foreach (keys (%hash2)) {
  print $_, ":", $hash2{$_}, "\n";
} # end-foreach


sub build_hashes {
  my %hash1 = { 1=>"foo1", 2=>"bar1" };
  my %hash2 = { 3=>"foo2", 4=>"bar2" };
  return (\%hash1, \%hash2);
} # end-sub
exit;