Just amend your code to display the value of $choice so you can see what it really is. Do this just before you test it. eg.

print "The value of \$choice is '$choice'\n";
while ($choice ne ...
[download]