sub makelist { my ($elem, $count) = @_; map $elem, 1..$count; } [download]
In reply to Re: generating a list of identical elements by tilly in thread generating a list of identical elements by rovf