use strict;

sub askName {

	chomp(my $nome=<STDIN>);
	my %nomi=(
		"fred"=>'flinstone',
		"barney"=>'rubble',
		"wilma"=>'flinstone'
	);
	
	for (%nomi) {
		print $_ if ($nomi{$_} eq $nome);
	}
	

}

&askName;