$accum =~s/,$//;
$accum =~ s/,/|/g;
print $accum;