Select Code to Download

#!/usr/bin/perl

...
             $row + 1, @matrix[$row * $dimension .. $row * $dimension 
++ $dimension - 1];
    }
}