Select Code to Download

#!/usr/bin/perl

...
     print $key, '=', $myref{$key}, "\n";
  }
}

[root@dubya perl]# cat fruit2.pl
#!/usr/bin/perl
...
     print $key, '=', ${ $myref }{$key}, "\n";
  }
}