foreach my $line (@fich){
  $i++;
  $flag=0;
  foreach $comm (@com){
        if( (($line eq $comm) || (index($line, $comm) > -1)) && ($flag==0)){
        print"Linha $i: $comm";
        $flag=1;
        print "Flag1: $flag\n";
       }
  }
}