my $rez = join(",\n", @$user1, @$user2); # Remove the \n if you want just CSV