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

No need to use sprintf there, just use strings:

foreach my $hour ( '00' .. '23' ) {
   # Do Stuff Here
}
[download]