use strict;
use warnings;

while (<DATA>) {
	chomp;
	my @vals = split "\t";
	if ($vals[0] == 12345) {
		print "Bingo";
		last;
	}
}

__DATA__
12345	date	name	email
12346	date	name	email
12347	date	name	email
12348	date	name	email
12349	date	name	email
12350	date	name	email