print $ref->{originator}{location},"\n";