my $regexp = qr/^$SearchStr$/;
my ($GrepResult) = grep($_->[0] =~ $regexp,@cdata);