Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
# manual printing

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

Select or download this

$VAR1 = {
          'word2' => 1,
...
        };
word2 => 1
word1 => 1