my @arr = ([]) x $count ;