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