Hello oh great monks of perl, I am very very new to perl - started today. I have multiple files in a folder and these files have the same format and the data is arranged in exact same way in all of them. I need to extract 2 columns of each file and put them all in one spreadsheet preceeded by the file name. this is what I have written (copied from one of the threads on this site) to extract data and put in an excel,, then grab first two columns from all the files in the folder and put them in one giant spreadsheet. thank you so much for the help,,

 #!/usr/bin/perl -w

    use strict;
    use Spreadsheet::WriteExcel;

    my $workbook  = Spreadsheet::WriteExcel->new('test.xls');
    my $worksheet = $workbook->add_worksheet();

    open INPUT, 'data.SSM' or die "Couldn't open file: $!";

    $worksheet->write($.-1, 0, [split]) while <INPUT>;
[download]

I wrote another but its not working, am pretty sure it's not the right code/is full of errors.

  #!/usr/bin/perl -w

    use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;



my %count; 
my $directory = "c:\\perl test scripts";


    my $workbook  = Spreadsheet::WriteExcel->new('test.xls');
    my $worksheet = $workbook->add_worksheet();


opendir(DIR, $directory )
  || die "Unable to open directory - $!\n";
my @files = grep /\.txt/, readdir( DIR );
closedir( DIR );



foreach my $file (@files) {
    open( FH, "$directory\\$file" )
      || die "Unable to open $file - $!\n";
   
 while( <FH> ) {

    $worksheet->write($.-1, 0, [split]) while <FH>;
 
   }
    close( FH );
}
[download]