Select Code to Download

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

sub get_x {
    # $coord{refaddr $_[0]}->{'X'} == 42
    return $coord{refaddr $_[0]}->{'ex'};  # but this is undef
}