use v6;

my  @arr  = [
    [ 1.1,2.2,3.3,4.4,5.5 ],
    [ 10,20,30,40,50 ],
    [ 100,200,300,400,500 ],
    [ 1000,2000,3000,4000,5000 ],
];

dd @arr; # dump the matrix

loop ( my $row=0; $row <= @arr.end; $row++)  {
	#say "Idx : $row";
	loop (my $col=0 ; $col <= @arr[$row].end ; $col++ ) {
		print "@arr[$row][$col].fmt("%7.1f")\t";
	}
  print "\n";
}

my $aant_cols = ( @arr[0].end ) ;  # It's a matrix : so Just take one row to find out the number of columns
                                   # cannot use @arr[0].elems : gives an error
print  "=======\t" x $aant_cols + 1 , "\n";
loop ( my $col=0 ; $col <= $aant_cols  ; $col++ ) {
 printf "%7.1f" , [+] @arr[*;$col]   ;  # calculate the total for each column
 print "\t"
}
say "";