#!/usr/local/bin/perl -l -w

use strict;

my %hsh;

# Not '$hsh{hello} = 1' ???!!!
%hsh->{hello} = 1;

for (keys %hsh) {
 print "$_=$hsh{$_}";
}