my $number_to_guess = X ;
map { $_ =~ /^(\d{10})/  ; $number_to_guess == $1 and die $_ } @row ;