Select Code to Download

my @cdata = (["test1.txt", "Subject2", 200],
              ["test2.txt", "Subject2", 300],
...
              ["test4.txt", "Subject4", 900],
              ["test5.txt", "Subject6", 200],
);

my $SearchStr = "test2.txt";
my $GrepResult = grep(/$SearchStr/,@cdata);