$e="e";
$chline1=<>;
chomp($chline1);
@names=();
$i=-1;
$delimiter=" ";


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

print ("@names \n");