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

my @files = </path_to_nine_files_prefixed_by_rawfile/rawfile*>;
my $filecount = $#files - 1; #relative to 0
open( MASTER, "/path_to_starting_file/rawfile" );

#Open filehandles and store to array
my $fh = 'A';
my @fhandles;
for (0..$filecount) {
    open $fh, $files[$_] or die $!;
    push @fhandles, $fh++; #'A', 'B', 'C', etc.
}

#process the first line of master and then get the first line of the o
+ther
#files, since files are all same length...
while (<MASTER>) {
    $_ =~ s/^\s+//;
    $_ =~ s/\s+$//;
    print "$_,";

    #Read each file, print newline after last.
    foreach my $fh (@fhandles) {
        my $required_line = <$fh>;
        chomp $required_line;
        $required_line =~ s/^\s+//;
        $required_line =~ s/\s+$//;
        print "$required_line,";
    }

    print "\n";

}    #end while
[download]