my $ap= $hour>11 ? "PM" : "AM";
$hour = $hour % 12; 
$hour = $hour || 12;