@copy = @tied;

##</code><code>##

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

##</code><code>##

@copy = ();
push @copy, $_ for @tied;

##</code><code>##

sub FETCHALL {
	$self = shift;
	map { $self->FETCH[$_] } 0..$self->FETCHSIZE;
}