$e="end";
$chline1=<>;
chomp($chline1);
@names=();
$i=0;
$delimiter=" ";


while ($chline1 ne $e) {
	@dos=split $delimiter, $chline1;
	$name[$i]=$dos[0];
	$mark[$i]=$dos[1];
	$i=$i+1;
	$chline1=<>;
	chomp($chline1);
}

$UP=<>;
chomp($UP);
$del=''; 

for ($j=0; $j<$i; $j++) {
	@time=split $del, $name[$j];
	
	if ($time[0] eq $UP) {
		print ("$name[$j] $mark[$j] \n");
	} 
}