use strict;
use warnings;

my %hash = (key1 => 1, key2 => 2, key3 => 3);

deref(\%hash);

sub deref {
   my %hash = %{$_[0]};
   for (keys %hash) {
      print "$_:$hash{$_}\n";
   }
}