#!/usr/bin/perl -w
use strict;

my %hash;
$hash{foo}{bar}{x} = 'zoom!';
$hash{bar}{foo}{x} = $hash{foo}{bar}{x};

print "$hash{foo}{bar}{x}\n";
print "$hash{bar}{foo}{x}\n";

$hash{foo}{bar}{x} = '!mooz';

print "$hash{foo}{bar}{x}\n";
print "$hash{bar}{foo}{x}\n";