in reply to Append lines to csv
use Tie::Array::CSV; my $filename = 'tied.csv'; tie my @file, 'Tie::Array::CSV', $filename; push(@file,[4,5,6]); untie @file; [download]