perl - вывод значений массива %arr

Есть массив %arr (у каждого ключа одно значение) нужно составить 2 строки формата $str1="$key1,$key2,$key3 и т.д" и соотв. $str2="$val1,$val2,$val3 и т.д" нужно, чтобы все значения между собой разделялись запятыми, в начале и конце строки запятых быть не должно. каким образом можно это сделать? (какой функцией или их последовательностью) такая комбинация ставит запятую в начале файла :( while (($key,$value) = each %series){ $str="$str,$key"; $str2="$str2,$value"; };