Select Code to Download

sub module_subroutine {
my (%hash,$scalar) = @_;
   return "The color of the ".$scalar." is ".$hash{color};
...
my $scalar = "water";
$hash_to_send{color} = "red";
print module_subroutine(%hash_to_send,$scalar);