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