push @{$csvheader{$pre}}, $tmp; print "@{$csvheader{'x_'}}\n"; $tmp = "paste -d';' ". @{$csvheader{'x_'}} ." > all.x.txt"; print "$tmp\n"; system($tmp);