В произвольном массиве К(m*n) "методом пузырька" отсортировать по столбцам все элементы в порядке убывания

Вывести массив К до и после сортировки. Под каждым столбцом вывести максимальный элемент матрицы

Сортировка методом пузырька на perl