If I understood your question correctly, you are trying to get two inputs from user in terminal say cat, dog and if those columns values in the table are matching with cat and dog respectively,
you need to select some other columns in the matching row and print it out.
If that is what you are looking for here you go, Untested though! 
#!/usr/bin/perl -w
use strict;
use warnings;
use DBI;

#Get first input
print "Enter cpt code> ";
my $cptcode = <STDIN>;

#Get Second input
print "Enter cpt2 code> ";
my $cpt2code = <STDIN>;

if ( ($cptcode != “”) && ($cpt2code != “”)) {
        my $dbh = DBI->connect('dbi:mysql:mydatabase:localhost:3306','
+abc','xyz') or die "Couldn't connect to database: " . DBI->errstr;
        my $sth = $dbh->prepare('SELECT * FROM charge WHERE column1 = 
+$cptcode AND column2 = $cpt2code’)
                or die "Couldn't prepare statement: " . $dbh->errstr;

                 $sth->execute()    # Execute the query
                or die "Couldn't execute statement: " . $sth->errstr;

        # Read the matching records and print them out
        while (my @data = $sth->fetchrow_array()) {
                my $cptanswer = $data[1];
                my $insid = $data[2];
                my $preauth = $data[3];
                my $updated = $data[5];
                print "\t$cptanswer\t$insid\t$preauth\t$updated\n";
        }

        if ($sth->rows == 0) {
                print "No names matched `$cptcode'.\n\n";
        }

        $sth->finish; 

        $dbh->disconnect;
}

[download]

In reply to Re: select from mysql table based on two column match by madtoperl
in thread select from mysql table based on two column match by abner

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.