#!/usr/bin/perl use Y; use strict; my %hash_to_send; $hash_to_send{first_colour} = "red"; $hash_to_send{second_colour} = "white"; $hash_to_send{third_colour} = "blue"; return &Y::module_subroutine($hash_to_send); #### #!/usr/bin/perl package Y; @ISA = qw(Exporter); @EXPORT_OK = qw(module_subroutine) sub module_subroutine { my($hash) = @_; return "The colour of the sky is ".$hash{third_colour}; } #### return &Y::module_subroutine(\$hash_to_send);