(please learn how to format code readably with <code> tags)

You should read perldoc perlreftut and perldoc perldsc for more explaination on this, but the basic solution to your problem is:

my %tmp = %{$hash_name{'element1'}->{'element2'}};
[download]

--
<http://www.dave.org.uk>

Perl Training in the UK <http://www.iterative-software.com>