my @times;
for (0..23) {
    push @times, sprintf "%02d00", $_; 
}
print Dumper(\@times);