#!/usr/bin/perl
use strict;
use warnings;

my %Names = {
          'Washington' => {
                      'name' => ['Eric','Smith']
                    }
           'California' => {
                      'name' => ['John','Paddy','Josh']
                    }

        };

my %Cars = {
          'Washington' => 'Honda',
          'California' => 'BMW'
        };