Perl создать строку (?,?,?)

Умпожь её.

'?' . ', ?' x @{$self->dim_pole} - 1

s/умпожь/умножь/

#!/usr/bin/perl

use encoding 'utf8';
use strict;
use Docum;

my $docum = Docum->new();
print '?' . ',?' x @{$docum->dim_pole} - 1;


Выдает ошибку:
Can't use string ("id") as an ARRAY ref while "strict refs" in use at ./d.pl line 10.

$docum->dim_pole возвращает список названий name,date,id.

$string=map {"$hash{$_},"} keys %hash -1;
Это конечно круто, только в следующий раз я уже не смогу
понять смысл данной строки.

$docum->dim_pole возвращает список 'name','date','id'.
Это скорее всего не массив, а именно список.

Как определить длину любого списка?

my $kol = @{[$docum->dim_pole]};
print $kol;
Выдает: 3

print @{[$docum->dim_pole]};
Выдает: namedateid

Подходит такое выражение:
print scalar(@{[$docum->dim_pole]});

Но не совсем красиво и понятно.