for ( my $i=0; $i<@original; $i++ ) { $kopie[$i] = $original[$i]; }