#!/usr/bin/perl

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

my $meret = scalar keys %eletkor;

print $meret."\n";