$str1 = join(',', grep {/^@/} @arr);
$str2 = join(',', grep {/^[^@]/} @arr);