hYUd66 - Online Perl Interpreter & Debugging Tool

#!/usr/bin/perl
# your code goes here

#
#	Задача:
#	 _ 100 раз вывести имя автора EGU Extra
#	Решение:
#	- автор Дмитрий Кузнецов
#	- цена $18
#

my $max = 100;


my $name = "Brigit";
my $familyname = "Viney";

my $authors;
$authors{'au1'} = "$name $familyname";

$authors{'au2'} = "\tMiles Craven";

my $i = 0;


print "0 раз повторяли ... \n";
print "$max раз повторяем ... \n";

while ( $i < $max) {

  print $authors{'au1'}, "\n", $authors{'au2'}, "\n";

  $i = $i + 1;
}

print "$max раз повторили ...\n";

print "Конец !.. "