#use Text::CSV::R qw(:all);
         use Text::CSV::R qw(read_table colnames rownames);

         my $M = read_table($filename, \%options);

         print join(q{,}, colnames($M));
         print join(q{,}, rownames($M));

         print $M->[0][0];

         for my $row (@{$M}) {
           for my $col (@{$row}) {
               # do someting with $col
           }
         }