open(NPBXNUM1, ">npbxnum1");
  open(MYINPUTFILE, "npbxnum");

##</code><code>##

  open(NPBXNUM1, ">npbxnum1");
  open(MYINPUTFILE, "<npbxnum");

##</code><code>##

  open(NPBXNUM1, '>', "npbxnum1");
  open(MYINPUTFILE, '<', "npbxnum");

##</code><code>##

while (<MYINPUTFILE>) {
   my($line) = $_;
   chomp($line);

##</code><code>##

while (my $line = <MYINPUTFILE>) {
   chomp($line);

##</code><code>##

foreach my $inputData ($line) {
  my $outputData = $inputData;
  while (length($outputData) < 4) {
    $outputData .= '_';
  }
  print NPBXNUM1 "$outputData\n";
}

##</code><code>##

  my $outputData = $line;
  while (length($outputData) < 4) {
    $outputData .= '_';
  }
  print NPBXNUM1 "$outputData\n";
}