#!/usr/bin/perl -w
use strict;
use Time::Local;

my $previous = '10111623';
my $current = '10111705';
my $onehour = 60*60;  #hour in seconds is 60sec*60min

my $cur   = date2timegm($previous);
my $stop  = date2timegm($current);

my @result;
while ( ($cur+=$onehour) < $stop)
{
    push(@result, timegm2date($cur));
}
print join(',',@result),"\n";

#prints: 10111700,10111701,10111702,10111703,10111704

sub timegm2date # returns date string
{
   my $epoch = shift;
   my ($yr,$mon,$day,$hour) = (gmtime($epoch))[5,4,3,2];
   $mon++;
   $yr+= 1900;
   $yr = ($yr =~ m/(\d\d)$/)[0];  
   return (sprintf ("%02d%02d%02d%02d", $yr, $mon, $day, $hour));
}

sub date2timegm  #returns an epoch time in seconds
{
   my $date = shift;
   my ($yr,$mon,$day,$hour) = $date =~ m/\d\d/g;
   --$mon;
   return (timegm(0,0,$hour,$day,$mon,$yr));
}