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

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