#!/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);