#!/usr/bin/perl -w

use strict;
use warnings;

my $z = '123478234P234';

if ( $z =~ /^\d{8}/) {
 print ("test\n");
}

my $a = '3ed1ac';
my $b = '3ed1bb';
my $a1 = sprintf("%d", hex($a));
my $b1 = sprintf("%d", hex($b));

print "$a1\n";
print "$b1\n";

for my $i ( $a1..$b1 ) {
    print sprintf("%06x",$i),"\n";

}


# for(my $i = 1; $i < 0x00FFFF; $i++) {
# print sprintf("%06x",$i),"\n";
# }