#!/usr/bin/perl

use warnings;

$fruit{'Apple'} = "Red";

$myHashref=\%fruit;
&mysubrtn($myHashref);

sub mysubrtn() {
  local *myref = shift ;
  test();
}

sub test {
    print $myref{'Apple'},"\n";
}