# lista list
@lili = (
    [   'Dr. Watson',       undef,          '221b',
        'Baker St.',        undef,          'Londyn',
        'NW1',              undef,          'Anglia',
        undef
    ],

    [   'Sam Gamgee',       undef,          undef,
        'Bagshot Row',      undef,          'Hobbiton',
        undef,             undef,          'Shire',
        undef
    ],
);

# lista tablic asocjacyjnych
@lita = (
    {
        nazwisko  => 'Dr. Watson',
        ulica     => '221b Baker St.',
        miasto    => 'Londyn',
        dzielnica => 'NW1',
        kraj      => 'Anglia',
    },

    {
        nazwisko  => 'Sam Gamgee',
        ulica     => 'Bagshot Row',
        miasto    => 'Hobbiton',
        kraj      => 'Shire',
    },
);

# tablica asocjacyjna list
%tali = (
    'Dr. Watson'=>
        [                  undef,         '221b',
            'Baker St.',    undef,         'Londyn',
            'NW1',          undef,         'Anglia',
            undef
        ],
    'Sam Gamgee' =>
        [                   undef,          undef,
            'Bagshot Row',   undef,          'Hobbiton',
            undef,          undef,          'Shire',
            undef
        ],
);

# tablica asocjacyjna tablic asocjacyjnych
%tata = (
    'Dr. Watson'=>
        {
            ulica  => '221b Baker St.',
            poczta => 'Chelsea',
            miasto => 'Londyn',
            kraj   => 'Anglia',
        },

    'Sam Gamgee'=>
        {
            ulica  => 'Bagshot Row',
            miasto => 'Hobbiton',
            kraj   => 'Shire',
        },
);


%Adres_Watsona = (
    nazwisko    => "Dr. Watson",
    ulica  => "221b Baker St.",
    miasto    => "Londyn",
    dzielnica    => "NW1",
    kraj => "Anglia",
);


