Select Code to Download

use warnings;
use strict;
...
my @flat= map { split ",", $_ } @path;   

print join ",", @flat;

11,29,10,25,11,21,15,15,21,11,25,10,29,11,35,15,39,21,40,25,39,29,35,3
+5,29,39,25,40,21,39,15,35,11,29