Select Code to Download

my ($self,$params) = @_;
my %tables = (
...
    $ids = $self->search_index_table( $tables{$name}, $value, $ids );
    last unless $ids;
}

sub search_index_table {
    my ( $self, $table, $value, $ids ) = @_;
...
    }
    return (@results ? \@results : undef);
}