use strict MAX_WANGOS => 10; my @arr = (1) x MAX_WANGOS;