my %nr_of_houses;
my $town = "G";
my $street = 6;
$nr_of_houses{$town,$street} = 123;  # 123 houses on street 6, in town G.
# Or
$nr_of_houses{$town}{$street} = 123;