Help for this page

Select Code to Download

Select or download this
my $cols = @{$mat[0]};

Select or download this

@mat == grep {
    @{$_} == @{$mat[0]};
} @mat or die '@mat not well-formed';