Select Code to Download

use strict;
use warnings;
...
# $flag == 3 means $field is present in both @Single and @Double

dd \%choices;

14:27 >perl 1508_SoPW.pl
{ Apple => 3, Banana => 0, Cat => 0, Lion => 2, Tiger => 0, Turtle => 
+1 }

14:28 >