Select Code to Download

@copy = @tied;

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

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

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