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