tie my %jd, 'JDhash', $date;
print $jd{julianday}, "\n";
print tied(%jd)->julianday, "\n";