#!/usr/local/bin/perl
use strict;
use warnings;

my (@tempd, %tempa);

push @tempd, (nm=>'abc', sz=>'def');

$tempa{'a'}{'zeta'}=[@tempd];

print "array: ", join " ", @tempd, "\n";
my $tmp = $tempa{'a'}{'zeta'};

print "hash: ", $tempa{'a'}{'zeta'}, "\n";
print "hash: ", $$tmp[0], " ", $$tmp[1], "\n";

Result:

array: nm abc sz def 
hash: ARRAY(0x40039370)
hash: nm abc