Select Code to Download

my @arry = qw{ 10 11 12 13 14 15 16 17 18 };
my @indices = qw{  3 5 1 };
...
print @remainder, $/;
__DATA__
0,2,4,6,7,8,