my @array = @{ $key };
print join ",", @array;