#!/usr/bin/perl -w

# Usage: perl batch.pl NPA NXX

$npa = shift;
$nxx = shift;

open OUT, ">>$npa-$nxx.txt" or die "Failure: $!"; 

for ($i = 0; $i < 10000; $i++) {
	$out = sprintf "$npa,$nxx,%04d,", $i;
	print OUT "$out\n";
}

close OUT;