my $arr = [(1) x 5];
print $#$arr;
[download]

Makeshifts last the longest.