print qq~$ref->[1]~;