C# to Perl (нужен переводчик)

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
 
class Program
{
    static void Main(string[] args)
    {
        List<string> names = new List<string>();//массив для имен друзей
        List<List<int>> counts = new List<List<int>>();//двумерный массив для количества номеров у каждого друга: первый индекс определяет: 
        counts.Add(new List<int>()); //0- кол-во такси
        counts.Add(new List<int>());//1- кол-во пиццы
        counts.Add(new List<int>());//2- кол-во девушек,
        //второй индекс- определяет номер друга
 
        int n; //количество друганов
 
        //вход
        using (var input = new StreamReader("input.txt", Encoding.Default))
        {
            n = Convert.ToInt32(input.ReadLine());//количество друзей в записной книжке
 
            for (int i = 0; i < n; i++)
            {//i-номер друга
                string[] str = input.ReadLine().Split(' ');
 
                int countTaxi = 0;//кол-во такси
                int countPizza = 0;//пиццы
                int countGirls = 0;//девушек           
 
                int m = Convert.ToInt32(str[0]);//количество номеров у i-ого друга 
 
                names.Add(str[1]);//запоминаем имя друга
 
                for (int j = 0; j < m; j++)
                {//j - счетчик по номерам
                    string[] numbers = input.ReadLine().Split('-');//читаем j-ый номер из телефонной книжки и разбиваем его на цифры
                    if (numbers[0] == numbers[1] && numbers[1] == numbers[2])//все числа в номере должны быть равны
                        countTaxi++;//нашли номер такси
                    else if (numbers[0][0] > numbers[0][1] && numbers[0][1] > numbers[1][0] &&//каждая последующая цифра меньше предыдущей
                        numbers[1][0] > numbers[1][1] && numbers[1][1] > numbers[2][0] &&
                        numbers[2][0] > numbers[2][1])
                        countPizza++;//нашли номер пиццы
                    else
                        countGirls++;//нашли номер девушки
                }
 
                //добавление счетчиков к результату
                counts[0].Add(countTaxi);
                counts[1].Add(countPizza);
                counts[2].Add(countGirls);
            }
        }
        //вывод
        using (var output = new StreamWriter("output.txt"))
        {
            //выходные строки
            string _taxi = "If you want to call a taxi, you should call: ";
            string _pizza = "If you want to order a pizza, you should call: ";
            string _girls = "If you want to go to a cafe with a wonderful girl, you should call: ";
 
            int maxTaxi = counts[0].Max();//максимальное количество номеров такси
            int maxPizza = counts[1].Max();//пиццы
            int maxGirls = counts[2].Max();//девушек
 
            int f0 = 0, f1 = 0, f2 = 0;//флаги
            //цикл по всем друзьям
            for (int i = 0; i < n; i++)
            {
                if (counts[0][i] == maxTaxi)
                {
                    if (f0 != 0) //если не первое имя - запятой не надо
                        _taxi += ", ";//добавляем к выходной строке
                    _taxi += names[i];
                    f0++;
                }
                if (counts[1][i] == maxPizza)
                {
                    if (f1 != 0) //если не первое имя - запятой не надо
                        _pizza += ", ";//добавляем к выходной строке
                    _pizza += names[i];
                    f1++;
                }
                if (counts[2][i] == maxGirls)
                {
                    if (f2 != 0) //если не первое имя - запятой не надо
                        _girls += ", ";//добавляем к выходной строке
                    _girls += names[i];
                    f2++;
                }
            }
 
            //добавляем точки
            _taxi += '.';
            _pizza += '.';
            _girls += '.';
 
            //записываем в файл
            output.WriteLine(_taxi);
            output.WriteLine(_pizza);
            output.WriteLine(_girls);
        }
    }
}