Select Code to Download

processarrays(\@array1, \@array2);
processhashes(\%hash1, \%hash2);

$sub processarrays{
   my($a1, $a2) = @_;
...
      print $h1->{$key};  #lookup based on $key
   }
}