foreach my $key ( keys %hash ) {

    my @tmp = split /\t/, $hash{$key}, 7;
    my $type = $tmp[0];
    my $dt   = $tmp[1];
    my ($year, $month, $day) = $dt =~ m|(\d{4})(\d{2})(\d
+{2})T.*|;