foreach (@CHOICE) {
    print "\$_ is ", ( defined $_ ? "'$_'.\n" 
                     :              "undefined.\n"
                     );
    if ($_ =~ /2001\sCensus\sOutput\sArea/){