#!/usr/bin/perl -w
use strict;

my %hash = ();
$hash{a}->{b} = 1;
print $hash{a}->{b};