#!/usr/bin/perl 

use warnings; 
use diagnostics;

my %hash = ('hello' => 'world',
		'says' => 'just another perl hacker');
my $hashref = \%hash;

foreach my $k (keys %$hashref) 
{ print "$k -> '$hashref->{$k}'\n " }