Select Code to Download

sub in_list { ( $_ eq $_[0] ) && return 1 for @_[ 1 .. $#_ ]; undef;}

sub in_list {
  for (@_[ 1 .. $#_ ]){
...
  }
  undef;
}