l32.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use warnings;
   4 use utf8;
   5 use v5.10;
   6
   7 my %EOT= (
   8     Имя   => 'Рита',
   9     Глаза => 'Голубые',
  10     Вес   => '49кг',
  11     Рост  => '1.76м'
  12 );
  13
  14 my %address= (
  15     Город   => 'Усть-Качка',
  16     Улица   => 'Партизана Германа',
  17     Дом     => '76',
  18     Квартира=> '15',
  19     Телефон => '9(943)345-228-0'
  20 );
  21
  22 my @data_base= (\%EOT, \%adress);
  23 say $data_base[0]{Имя};