my $cols = @{$mat[0]};