sub makelist {
   my @list;
   for (1..$_[1]) { push @list, $_[0] };
   return @list;
}