#!/usr/bin/perl

use strict;
use Data::Dumper;
local $\ = "\n";

my %namedHash = (
	'anon hash1' => {
		'anon array1' => [
			sub { print 'anon sub1'},
			\&test1,
			\&test2
		],
		'anon array2' => [
			sub { print 'anon sub2';},
			\&test1,
			\&test3
		],
	},
	'anon hash2' => {
		'anon array1' => [
			sub { print 'anon sub1'},
			\&test1,
			\&test2
		],
		'anon array2' => [
			sub { print 'anon sub2'},
			\&test1,
			\&test3
		],
	},
);

my @namedArray = ( \%namedHash );

print Dumper(\@namedArray);
exit;

sub test1 {
	print 'sub test1';
};

sub test2 {
	print 'sub test2';
};

sub test3 {
	print 'sub test3';
};