Select Code to Download

sub make_list {
  my (%opt) = @_;
...
  
  return $list;
}

sub make_hash {
  my %opt = @_;
...
  }
  return \@array;
}