$|=1; # So it works in the Open Perl IDE

@words = qw /I am learning Perl/;
$i=0;
while($i <= $#words){ # make use of the "last index" special variable
  print "$words[$i]\n";
  $i = $i + 1;
}


