foreach my $row (@matrix) {
  print join ("\t", @$row);
}