my $lo = '0007';
my $hi = '0014';
print "$lo:$hi:",join ' ', $lo .. $hi, "\n";

# now set numeric values and flags by using $lo and $hi
# in numeric context:

my $num = $lo + $hi;
print "$lo:$hi:",join ' ', $lo .. $hi, "\n";
__END__

Output:

0007:0014:0007 0008 0009 0010 0011 0012 0013 0014 
0007:0014:7 8 9 10 11 12 13 14