Select Code to Download

foreach my $word(@four)
   {print"\n $word: ";
   my $length=length($word);
   print"\n Length of the word= $length\n\n";
} # there

#!/usr/bin/perl -w
use strict;
use Data::Dumper;
...
$VAR10 = 'GEAR';
$VAR11 = '';
$VAR12 = 'HEAR';