Написал небольшую програмку на Perl для подсчёта количества счастливых билетов в последовательности от 000000 до 999999. Их оказалось 55252.

for (0…999999)
{
     $a = ('0' x (6-length $_)) . $_;
     $c++ if substr($a, 0, 1)+substr($a, 1, 1)+substr($a, 2, 1) == substr($a, 3, 1)+substr($a, 4, 1)+substr($a, 5, 1);
}

print "$c\n";

Столько лет программирую на Perl и всё время узнаю что-то новое. Главным образом потому, что недосуг внимательно прочитать полную документацию. Сегодня с удивлением узнал о существовании конструкции «use only» [ <<> ]