Perl: Создание массива объектов

Частично связано с этим вопросом , но отличается, поскольку речь идет о вызовах конструкторов ...

Я хотел бы создать массив из фиксированного количества объектов.

Я мог бы сделать это:

my @objects;
push( @objects, new MyPackage::MyObject() );
push( @objects, new MyPackage::MyObject() );
push( @objects, new MyPackage::MyObject() );
# ...

​​Это несколько уродливых видов. Создание цикла лишь ненамного лучше.

Разве нет способа создать массив из (конструктор-в itialized) объекты в Perl?

Задуманный вопрос:

Эти «объекты», которые я хочу создать, на самом деле являются оболочками, сгенерированными SWIG для структур C, то есть структурами данных без «поведения» (кроме созданных SWIG получить и установить функции). Я просто хочу передать массив в качестве параметра функции C, которая заполнит структуры для меня; нужно ли мне вообще вызывать конструкторы, или есть ярлык для использования функций get для последующего чтения содержимого структуры? (Да, я ужасно новичок в OOPerl ...)