while ($choice) {

    print STDOUT "\nPlease select the catergory of results that you wish to see;\n\n\t1. tv \n\t2. computers \n\t3. exercise \n\t4. food\n\n";

    chomp ($choice = <STDIN>);

    #
    # your code goes here
    #

}