sub  subroutine {

    my ($self,$vip) = @_;
    my @ip = ();
    my $sql_query = $self->{queryObj}->execute(
    "select machineIP from 'tablename' where frontend=$vip");
    my $records = $self->{queryObj}->result();

     foreach my $row  (@$records) {
       push @ip,  $row->{machineIP};
    }
    return  \@ip;
 }