#!/usr/bin/perl 
use strict;
use warnings;

my @clock;

for (0..23) {
	for (0..59) {
		for (0..59) {
			push @clock, [$h, $m, $s];
		}
	}
}