perl -le '@names = qw( abe bill chuck );
          @arrayCode = qw| $cn=join(",",@names); print@names; print$cn |;
          eval ($_) for @arrayCode
'

__output__
abebillchuck
abe,bill,chuck