for my $chosen (@CHOICE) {
    if (defined $chosen && $chosen =~ m/2001\sCensus\sOutput\sArea/){