C:\Steve\Dev\PerlMonks\P-2015-03-30@1459-Ad-Hoc-Conditionals>adhoc1.pl
Enter ad hoc values list in the following format:  query->value|query->value|query->value
Steve->Pinger|Tom->Tony|Ronald->Kevin
    Enter query: mike
       Resposne: {No Response}

    Enter query: george
       Resposne: {No Response}

    Enter query: steve
       Resposne: Pinger

    Enter query: om
       Resposne: {No Response}

    Enter query: tom
       Resposne: Tony

    Enter query: kevin
       Resposne: {No Response}

    Enter query: ronald
       Resposne: Kevin

    Enter query: