#! /usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my @n = ('n1','n2','n3');
my @z = ('z1','z2','z3');
my @w = (1,2,3);
my %h;   # $h{Name}{Zeit} = Wert;

# hash-sclice für Name n0 und Zeiten z1-z3:
@{$h{n0}}{@z} = @w;
print Dumper(\%h),"\n";

# hash-sclice für Namen n1-n3 und Zeit z0:
%h = ();
$h{$n[$_]}{z0} = $w[$_] for (0..$#w);
print Dumper(\%h),"\n";