print $d->{one1} ; # De-reference $d, then use the key "one1" to get the value