print join ',',@$ref;