adding sample hash perl module