#!/usr/bin/perl

use strict;
use Data::Dumper;

my %hash;

$hash{foo}=[undef,1];
$hash{foo}[0]{bar}=[undef,2];
$hash{foo}[0]{bar}[0]{bink}=[undef,4];

print Dumper \%hash;