Вы можете получить размер массива в Perl, оценив его в скалярном контексте.
Например, вы можете сделать это явно как:
my $size = scalar @{$HoA{teletubbies}};
Но вы также можете сделать это неявно в этом случае:
my $size = @{$HoA{teletubbies}};
А поскольку это Perl, вы также можете сделать это так:
my $size = $#{$HoA{teletubbies}} + 1;
(Оператор #
возвращает последний индекс массива, поэтому добавление к нему даст вам его размер).