Select Code to Download

 foreach my $key ( keys %hash ) {

...
    my $dt   = $tmp[1];
    my ($year, $month, $day) = $dt =~ m|(\d{4})(\d{2})(\d
+{2})T.*|;

 foreach my $key ( keys %hash ) {

...
printf("bucket: %s\ttype: %s\t%s-%s-%s\t%s\n",$bucket
+,$type,$year,$month,$day,$dt);
......