my $xm = $hour > 11 ? "pm" : "am";