Initial commit from the 2013 with minor fixes. From now and then,

[perlbook.git] / l13.pl

#!/usr/bin/perl -w

@porn_stars= ("Саша Грей", "Анджел Дарк", "Лили Лав");

$i= 0;
while($i <= $#porn_stars)
  {
    print "$porn_stars[$i]\n";
    $i++;
  }