#!/usr/bin/perl

my %eletkor = ( 
		"Sanyi" => 47,
		"Tibor" => 29,
		"Lajos" => 28,
		"Jani" => 37, 
		"Gabor" => 25
		);

print  scalar keys %eletkor , "\n";

delete($eletkor{"Tibor"});

print  scalar keys %eletkor , "\n";