sub get_x {
   return $xc00rd{refaddr $_[0]};  # oh noez!
}