my @empty1 = (); my $empty1 = join ",", @empty1; @empty1 = split ",", $empty1; my @empty2 = (""); my $empty2 = join ",", @empty2; @empty2 = split ",", $empty2;