foreach (@CHOICE) {
    if (defined && m/2001\sCensus\sOutput\sArea/){

##</code><code>##

foreach (@CHOICE) {
  next if (!defined);
  if (m/2001\sCensus\sOutput\sArea/){

##</code><code>##

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