Now, if you want you can go and buy a book called Perl Cookbook and look up the various solutions to your different issues, then merge them into a single script and use that. You could even post the script you've put together and ask for help with it.

Until you post code and ask some specific questions I suspect that you wont get much help at this site.

Oh, a title like "urgent help needed" is also a really good way to piss the regulars off. Try being a bit more specific, and also try to remember that nobody here is paid to do anything, so whats urgent to you, isnt urgent to us. To be honest im a touch suprised that this needs to be said in the first place.

--- demerphq
my friends call me, usually because I'm late....

use Fcntl qw(LOCK_EX LOCK_UN);

my $header = 'foo';
my $footer = 'bar';
my $prefix = 'baz';

open CSV,$csvfile;
open OUTPUT,">$header";
flock OUTPUT,LOCK_EX;

$, = ","; # output field seperator, joins lists passed to print

while (<CSV>){
    print OUTPUT $prefix,$_; # no need to split;
            # just so you know : @list = split(/,/,$_);
            # will do the trick better than $var1,$var2...
            # but you want to chomp($_) first, and set $\ to "\n" perh
+aps
            # then you print OUTPUT $prefix,@list
            # and CSV is done for you.
}

print OUTPUT $footer;

flock OUPTUT,LOCK_UN; # not really needed, i think
close OUTPUT;
close CSV;
[download]

Thanks, i appreciate your help and time ronan