my $i;
    for $i (0..$#items) {
    print "-------------\n";
       my %hash = %{$items[$i]};
       my $d = Dumper(\%hash);
       print "$d\n";
#      my $date = $hash{Date};
    }