#!/usr/bin/perl
use strict;
use warnings;
use integer; # force integer division

for my $i (0 .. 23)
{
  my $tmp = $i % 12;

  # ternary operator just like in C 
  my $time = $tmp ? $tmp : 12;  
  
  # ternary operator just like in C 
  my $qualifier = ($i < 12) ? "AM" : "PM";

  printf "%02d $qualifier\n", $time;
}