#!/usr/bin/env perl

sub kiAdatok {
	my %ember = @_;
	
	foreach my $kulcs ( keys %ember) {
		my $ertek = $ember{$kulcs};
		print "$kulcs : $ertek\n";
	}
}

%janos = (
	'név' => 'János',
	'kor' => 28,
	'fizetés' => 875000.0
	);

kiAdatok(%janos);