problem adding column to array

[erbrose]

Oh perl masters, please show me the way!!! Alright, my issue in a nut shell is... I have a folder packed full of csv files. In each csv file there are 2 fields (NAME, VALUE). I need to combine all these files into one file BUT here is where I am stuck.. each csv is named by a specific data/24time (ie 20080220013000.csv).
As i loop through these csv's I need to add the file name as a column, so I would end up with 3 fields in the combined new csv file (NAME,VALUE,DATETIME) this is so i can differentiate between the files when I go to do some final analysis.
Right now I am just trying to add the DATETIME to one csv (will work on looping through all the files after I get this working) here is what i've managed to come up with so far (ps it does't work either!)

#!/usr/local/bin/perl
#use strict;
use warnings;
use tie::File;
my $InDir="D:\\input";
my $OutDir="D:\\output";
my $file_count=0;
my $directory_count=0;
my $file_out="temp_out.csv";
 
  opendir(DIR, $InDir);
    LINE: while(my $FILE = readdir(DIR)) {
      next LINE if($FILE =~ /^\.\.?/);
      ## check to see if it is a directory
      if(-d "$FILE"){
        $directory_count++;
        }
      else {
        $file_count++;
      }
    }
  closedir(DIR);
 
my @dirSen;  
  opendir(DIR, $InDir) or die "Unable to open dir $InDir: $!\n";
  @dirSen = sort readdir(DIR);
  my $dir_sen_contents = $dirSen[2];
  close(DIR);
  #$dir_sen_contents is now the first file of sensor directory
  #print "$InDir\\$dir_sen_contents\n";
 
open (FILE, "$InDir\\$dir_sen_contents") || die "Cannot write to $dir_sen_contents\n"; 
open (TMP, ">$OutDir\\$file_out") || die "Cannot write to $file_out\n"; 
my @TMP=(<FILE>);
my $tmp2=@TMP;
for(my $i = 0; $i < $tmp2; $i +=1) {
  $TMP[$i][3] = "$dir_sen_contents"}
print @TMP;
 close FILE;
 close TMP;

ps. i get an error Can't use string ("NAME,VALUE") as an array ref while "stricts ref" in use at line 37
Any assistance will be greatly appreciated.
Thanks ahead of time
Eric

[erbrose]

Solved albeit backwards... and with the help of a textpad macro to tidy at the end...

#!/usr/local/bin/perl
use strict;
use warnings;
use tie::File;
use File::Copy;
 
 
my $pid;
die "cant fork $!\n" unless defined($pid=fork());
 
 if($pid) {
 print "Here we go\n";
 my $in='go';
   while ($in ne 'stop') {
   print "$in is your input\n";
       if($in eq 'stop') {
       print "exiting.........\n";
       }
   }
 }
 else {
LOOP1:
  sleep 1;
  {move_files()}
 
goto LOOP1;
 
 }
 
 
sub move_files { 
 
my $InDir="D:\\input";
my $TmpDir="D:\\temp";
my $OutDir="D:\\output";
my $file_count=0;
my $directory_count=0;
my $file_out="combined_data.csv";
 
  opendir(DIR, $InDir);
    LINE: while(my $FILE = readdir(DIR)) {
      next LINE if($FILE =~ /^\.\.?/);
      ## check to see if it is a directory
      if(-d "$FILE"){
        $directory_count++;
        }
      else {
        $file_count++;
      }
    }
  closedir(DIR);
 
my @dirSen;  
  opendir(DIR, $InDir) or die "Unable to open dir $InDir: $!\n";
  @dirSen = sort readdir(DIR);
  my $dir_sen_contents = $dirSen[2];
  close(DIR);
  #$dir_sen_contents is now the first file of sensor directory
 
my $tmpyear=substr $dir_sen_contents,6,4;
my $tmpmonth=substr $dir_sen_contents,10,2;
my $tmpday=substr $dir_sen_contents,12,2;
my $tmphour=substr $dir_sen_contents,14,2;
my $tmpminute=substr $dir_sen_contents,16,2;
my $tmpsecond=substr $dir_sen_contents,18,2;
my $field=$tmpyear."-".$tmpmonth."-".$tmpday." ".$tmphour.":".$tmpminute.":".$tmpsecond;
my $movefrom="$InDir\\$dir_sen_contents";
my $moveto="$TmpDir\\$dir_sen_contents";
print $movefrom;
print $moveto;
 
open (FILE, "$InDir\\$dir_sen_contents") || die "Cannot write to $dir_sen_contents\n"; 
open (TMP, ">>$OutDir\\$file_out") || die "Cannot write to $dir_sen_contents\n"; 
  while (<FILE>) {
    print TMP ("$field",",$_");
    }
 
close FILE;
close TMP;
move ("$movefrom", "$moveto") or die "failed to move"; 
}

would still definitely love to see someones code that isn't as cluttered as mine if they have the time :)