Select Code to Download

#do a for loop to make it go through the test
for ($i=0; $i<=#@Comment; $i++) {
...
$Como = $Comment[$i];
          }
}

for($i=0; $i <= if ($value==$Comm[$i]) { ....

my $Como;
foreach my $i (0..$#Comment)
...
unless (defined $Como) { 
  # do something here if we didn't find anything
}

# ...
  $Como = $Comment[$i], last if $Comm[$i] eq $value;