Select Code to Download

sub makelist {
  my ($elem,$count)=@_;
...
  $list[$count-1]=0;
  map { $elem } @list
}