my $max_wangos = 10;
my @arr = (1) x $max_wangos;