#!perl/bin/perl

use strict;

@_ = qw/perl is great/;

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