Or maybe :

my $number_to_guess = X ;
my %stuff ; 
map { $_ =~ /^\d{10}(.*)/  ; $stuff{$_} = $1 ; } @row ; } @rows; 
print $stuff{$number_to_guess} ;
[download]

Or maybe not