#!/usr/bin/perl -w
my %symmetrical = ();

my $time;
my $year;

my @months = ('1001', '2002', '3003', '0110', '1111', '2112');

foreach my $i (0 .. 2359)
 {
  $i = &fill($i);
  $i =~ m/(\d\d)(\d\d)/;
  if (($1 > 23) or ($2 > 59)) { next; }
  $time = $i;
  $year = reverse($i);
  $symmetrical{$year} = $time;
 }

for my $i (sort(keys %symmetrical))
 {
  my $ryear = $i;
  my $rtime = $symmetrical{$i};
  $rtime =~ s/(\d\d)(\d\d)/$1:$2/;
  for my $rmonth (@months)
   {
    $rmonth =~ s/(\d\d)(\d\d)/$1\/$2/;
    print "$rtime\t$rmonth\t$ryear\n";
   }
 }

sub fill
 {
  my $i = shift;
  while (length($i) < 4)
   {
    $i = '0' . $i;
   }
  return $i;
 }