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