Shell Programming and Scripting

 #!/usr/bin/perl
    use strict;

    my $NER;
    my @text=("ORG","PER");

   my @NES=("I-PER","I-TIM","LOC","MISC","ORG","PER");

    for(my $k=1; $k<=29; $k++)
    {
        if ($text[0] eq $NES[k])
        {
                $NER = $text[0];
        }
        else
        {
                $NER="No Match";
        }
    }
  print $NER;

#!/usr/bin/perl

use strict;

my $NER;
my @text=("ORG","PER");

my @NES=("I-PER","I-TIM","LOC","MISC","ORG","PER");

for(my $k=1; $k<=29; $k++)
{
if ($text[0] eq $NES[$k])
{
$NER = $text[0];
last;
}
else
{
$NER="No Match";
}
}
print $NER;

#!/usr/bin/perl

use strict;
use warnings;

my $NER = 'No Match';
my @text = qw(ORG PER);
my @NES  = qw(I-PER I-TIM LOC MISC ORG PER);

MAINLOOP: for my $text (@text){
   for my $nes (@NES){
      if ($text eq $nes) {
         $NER = $text;
         last MAINLOOP;
      }
   }
}
print $NER;