my %h = ('Ivan'=>7,
		'AK'=>8,);
print "$h{'Ivan'}\n";
my $refh = \%h;
print "$refh\n";
print "${$refh}{'Ivan'}\n";
print "$refh->{'Pero'}\n";