Select Code to Download

my @dates = ( '1010', '1007');

...
   my ($year,$mon) = $date =~ m/\d\d/g;
   print "year = $year month= $mon\n";
}