#!perl -w
use strict;

my $starttim = 4;
my $endtime  = 9;

my $pattern = "^(" . 
  join("|", map { sprintf "%02d", $_ } $starttim .. $endtime ) .
  ")";

my $cmd = "grep -e '$pattern' file";
print "cmd = $cmd\n";