#!perl/bin/perl

use strict;

@_ = qw/perl is great/;

for (@_) {
   if ($_ eq "perl") {
      print "$_\n";
      next;
   }
   else {
      next LABEL
   }
   LABEL:
   print "The word was: $_\n";
}


##</code><code>##

#!perl/bin/perl

use strict;

@_ = qw/perl is great/;

LABEL:
for (@_) {
   if ($_ eq "perl") {
      print "$_\n";
      next;
   }
   else {
      next LABEL
   }
   print "The word was: $_\n";
}