#!/usr/bin/perl -w
use strict;
use IO::All;

my $datei_in = '/home/ordner/test.csv'
my $datei < io("$datei_in");
my $z = 1;
my $ersetzung ='$temp =~ s/Item';

while($datei =~ s/^(.*)$/$ersetzung $z\/$1;/g) {$z++}

my $datei_out = $datei_in
$datei_out =~ s/\.csv/_geaendert\.csv/;
$datei >> io("$datei_out");