#!/usr/bin/perl
use strict;
use warnings;

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

print(join(', ',sort keys %eletkor),"\n");