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