Select Code to Download

my @dates = grep /$date/, @{ $countries{$cntry_of_issue} };

use warnings;
use strict;
...
978,XBRN,CH,Berne Stock Exchange,2010,20100102
978,XBRN,CH,Berne Stock Exchange,2010,20100321
978,XBRN,CH,Berne Stock Exchange,2010,20100324

$VAR1 = [
          '20100101'
        ];