foreach my $hour (map { sprintf "%02d", $_ } 0 .. 23) {
   # Do Stuff Here
}