#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $result = { 'word1' => 1, 'word2'  => 1};

print Dumper ($result);

# manual printing

print $_, " => " , $result->{$_},$/ for (keys %$result); # note the %$