@a = qw /Barak Bill George Ronny Jimmy Gerald Dick/;

$i = 0;
do {
  $l = "long";
  if (length $a[$i] < 5){
    $l = "short";
  }
  print "$a[$i]'s name is $l\n";
  $i = $i + 1;
} while ($i <= $#a);
