exercise #2 (display list elements according to user input)

#!C:\Strawberry\perl\bin
use warnings;

$stop = 0;
until ($stop != 0) {

    @list = qw(a b c d e);

    print "please enter a number between 0 and 4\n";

    $entry = <STDIN>;
    print "you entered $list[$entry]\n";

    print "would you like to view another entry?(yes/no)\n";
    $answer = <STDIN>;
    chomp $answer;

    if ($answer eq "no") {
        print "\n exiting.......\n";
        $stop += 1;
    }



}