push @arry, $var for 0 .. $cnt;
push @arry, map { $var } 0 .. $cnt;