use List::Util qw(first);

my $SearchStr = "test2.txt";
my $SearchResult = first { $_->[0] eq $SearchStr } @cdata;

print "Found file: $SearchResult->[0]\n";