foreach my $code ('000000001' .. '001500000') {
    # Do something with $code.
}
[download]

Abigail