Hi Rahul6990 ,
this line :my @match_to_array = (a,b,c,a,d,c,b,r); #Oops
should either be
my @match_to_array = ('a','b','c','a','d','c','b','r');
OR
my @match_to_array = qw(a b c a d c b r);