my $in; 
$in = join(",",@{$scalar}) if $scalar =~ /array/i;
$in = $scalar if !$in;