#!/usr/bin/perl -w
#Объявляем foo как массив из восьми массивов указателей на указатели функций, возвращающих указатель на масив указателей на символы.
#

# Указатели на символы
$one = \a1;
$two = \b1;
$many = \z1;
# Массив этих указателей.
my @array = ( $$one, $$two, $$many );
# Функция, возвращающая указатель на этот массив.
sub func1 {
        return \&array;
}
sub func2 {
        return \&array;
}
# Массив функций
my @func_array1 = ( \&func1, \&func2  );
my @func_array2 = ( \&func1, \&func2 );
# Итоговый массив(два для примера, просто лень все восемь писать)
my @foo = ( \@func_arra1, \@func_array2 );