my @arr1 = ("foo", "", "bar", "", "baz");
my @arr2 = grep $_, @arr1;
{
    $" = ', ';
    print "@arr1\n@arr2\n";
}