$val = *x; print "@{ *{ $val } }";