Select Code to Download

use warnings;
use strict;
...
}

print join ',', @chain;

Category1,Category2,Category3,Category4