#!/usr/bin/perl -w

my ($lat, $long) = @ARGV;
my $maxdist = 3;

sub distance
{
	my ($x1, $y1, $x2, $y2) = @_;

	sqrt(($x1-$x2)**2 + ($y1-$y2)**2);
}

while (<STDIN>) {
	push @coords, [split];
}

foreach (@coords) {
	my ($lat2, $long2, $email) = @$_;
		
	print "$email is at $lat2 $long2\n"
		if distance($lat, $long, $lat2, $long2) < $maxdist;
}