use strict;

#looked variable
my $VarString = 'C++';

my $Counter = 0;

#example array (it simulates the file lines)
my @Array;

#push variable (CSV delimited) in array
$Array[0] = 'VISUAL BASIC,PERL,PASCAL';
$Array[1] = 'C#,C,C++';
$Array[2] = 'ASSEMBLER,PHP,JAVA';
$Array[3] = 'HTML,XML,JAVA';

print "Start...\n";

#search string in array
while ($Counter <= $#Array){

    #check with the matching expression
    next unless $Array[$Counter] =~ m/$VarString/;
    
    print "I have found the string $VarString in array position $Counter!\n";

}continue{
    
    #increment the array position
    $Counter++;

}

print "Stop\n";