Программистские досуги

[tonsky]

Пишем

sub f { return (10, 20); }
my $a = f();
print ("a: $a\n");Что напечатает? 20. Типа, последний элемент. Ок.

Пишем вот так:

sub g { return (5, (10, 20)); }
my ($b, $c) = g();
print ("b: $b\n");Что напечатает? 5. Опять ок. Наконец, пишем

print ("c: $c\n");И получаем (барабанная дробь) 10!

Ну давайте, расскажите мне, какой Перл хороший язык.