$temp = join "\n", map { $_ = join ",", @{$_} } @data;