sub makelist {
  my ($elem, $count) = @_;
  map $elem, 1..$count;
}