my $length = $#tied;
@copy[0..$length] = @tied[0..$length];