#!/usr/bin/perl
use warnings;
use strict;

my $NumOfSim = shift or die "usage: $0 NumOfSim\n";

my $me = getpwuid $<;

my $PATH = "/home/$me/src/Tc/Scheme4/Simulation$NumOfSim";

open my $FILEIN, '<', "$PATH/subfile" or die "Cannot open subfile: $!";

my $j = 0;
while ( my $line = <$FILEIN> ) {
    open my $FILEOUT, '>', "$PATH/subfile$j" or die "Cannot open subfile$j: $!";
    $line =~ s/$/  /;
    print $FILEOUT $line;
    last if ++$j >= 2968;
}