#!/usr/bin/perl use warnings; use strict; my $linecount = 0; my @files = </path_to_nine_files_prefixed_by_rawfile/rawfile*>; open (MASTER, "/path_to_starting_file/rawfile"); while (<MASTER>) { #process the first line of master and then get the first #line of the +other files, since files are all same length... $_ =~ s/^\s+|\s+$//g; print "$_,"; #process the first lines of each of the other files and #append them foreach my $file (@files) { open (FILE, $file); my @file_lines = <FILE>; my $required_line = $file_lines[$linecount]; print "$required_line,"; next; } #end foreach $file print "\n"; $linecount++; } #end while